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*&ee MODIFICATION HISTORY #*«#% 


Original release: 31-OCT-83 (EDITED 11-JUL-83) 
Bert Kleinschmidt 
Version BO 09-OCT-83 | Bert Kleinschmidt 


Fixed typographical errors. 
Moved test from CVDHB (Part 2) into this program: 
Old CVDHB (version A) tests 2 through 8 are 
now New CVDHA (version B) tests 20 through 26. 
Modified test 13 (Selftest Fail Test) to allow use of CVDHA 
in manufacturing with version 0 DHV ROM code. 


Version CO 17-JUL-84 Bert Kleinschmidt 
Modified control of processor priority throughout the 
program to maintain priorities of 5 or lower to allow 
LTC interrupts. This guarantees a less than 2 second 
responce to a Break request while running under APT. 


Version CO 9-SEP-84 PETER ONEIL 


Modified cleanup code to turn off clock if it was turned on. 


29-MAR-85 Howard Marshall 
Did formal release of version CVDHACO. 
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1.0 GENERAL PROGRAM CONSIDERATIONS 

1.1 PROGRAM ABSTRACT 

CVDHA is part one of the DHV11-M functional verification test. This 
part of the test verifies that the reset, register access, and 

interrupt functions of the board are functioning correctly. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 

SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 

TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 

USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE 

DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. 


THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN THE OPERATING 
INSTRUCTIONS-COMMANDS OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
The following hardware is required to run the DHV FVT: 


o LSI-11 processor with at least 32 Kbytes of RAM. 
o DHV11 boards installed on the Q-bus. 


© Appropriate program load device supporting XXDP+ 
media or a down-line loading system. 


1.3 RELATED DOCUMENTS AND STANDARDS 
o DHV11-M Hardware Manual - This manual describes’ the 
functions and uses of the DHV11-M device. 


o XXDP+ User's Manual - Describes the running of 
diagnostics under the XXDP+ monitor. 
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| 1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

| The LSI-11 processor, the Q-BUS, the system memory, the 


console terminal, and the load media are assumed to have 
been tested and found working before this program is run. 


SEQ 0005 
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2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME 


SERVICES. FOR DETAILED INFORMATION, REFER TO THE XXDP+ 
USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 


BY THE DIAGNOSTIC - SEE PERFOMANCE AND PROGRESS 
REPORTS SECTION OF THIS DOCUMENT) 


DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE FLAGS SECTION) 
ZFLAGS CLEAR ALL FLAGS (SEE FLAGS SECTION) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF "START". 

MORE INFORMATION CAN BE FOUND WITHIN THE SECTION LABELLED 
EXTENDED COMMAND SYNTAX 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 

/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 


SEQ 0006 
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/PASS :DDDOD 
/FLAGS:FLGS 


7EOP : DDDDD 


EXAMPLE OF SWITCH USAGE: 


hae sae are CAUSE TESTS 1,5,7,8,9,10 TO 
BE L OTHER TESTS WILL NOT BE RUN. 
EXECUTE DDbbD PASSES (DDDDD = 1 T0 64000) 

SET SPECIFIED FLAGS.SEE THE FLAGS SECTION 

OF THIS DOCUMENT. 

REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


START/TESTS:1-5/PASS:1000/E0P : 100 
THE EFFECT OF a:'t COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 


ITS WILL TESTED 1000 TIMES AND 3) THE “~~ OF 


PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY 


SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. 


“you MAY, 


FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 
BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


START x Xx 
RESTART X X 
CONTINUE Xx 
PROCEED 

DROP 


| 
| /UNITS :LIST 
EXECUTED, 2) ALL UN 
COMMAND . 
TESTS PASS 
| 


FLAGS EOP UNITS 


x X x 
X x X 
X X 
x 
X 
X 
X 


SEQ 0007 
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2.3 FLAGS 


| 
FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 


*SEE THE ERROR INFORMATION SECTION OF THIS DOCUMENT. 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER:BOE 


S  eetied — 


SEQ 0008 
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2.4 EXTENDED COMMAND SYNTAX 


2.4.1 START COMMAND - 

Tet ittitititttitittti ttt ttt ttt tt ttt tT TTT TTT TTT TTT TTT TTL 

STACRT )/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: 
<FLAG-LIST>/EOP: <INCR> 

Titi itt it ittti ttt ttt ttt tt tit tt TTT tT TT TTT TTT TT TTT TTL TTT 


2.4.1.1 Tests Switch (/TESTS:<TEST-LIST>) - 


<TEST-LIST> Is a sequence of decimal numbers (1:2 etc.) 
or ranges of decimal numbers (1-5:8-10 etc.), seperated by 
colons, that specify the tests to be executed.Tests will be 
executed in numerical order regardless of the order of 
specification. The default is to execute all tests. On 
this and all switches, the angle brackets <> are punctuation 
used in the definition only, and are not to be typed by the 
ott See example at end of "Effect of Start Command” 
section. 


2.4.1.2 Pass Switch (/PASS:<PASS-CNT>) - 


<PASS-CNT> Is ea decimal number indicating the desired 
number of passes. A pass is defined as the execution of the 
full diagnostic (all selected tests).The default is 
ate, execution. In this case, exit from the program 
is accomplished either by typing a control/C or by occurance 
of an error with the halt on error flag being set. The exit 
is @ return to command mode. See example at end of "Effect 
of Start Command" section. 


2.4.1.3 Flags Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> is a sequence of elements of the form 
<FLAG>, <FLAG=1>, or <FLAG=0>, separated by colons, where 
<FLAG> has one of the following values: 


HOE Halt on error, causing command mode to 
be entered when an error is encountered. 

LOE Loop on error, yon the diagnostic to 
loop continuously within the smallest 
defined block of coding (segment, subtest, 
or test) containing the error. 

IER Inhibit error reporting. 

IBE Inhibit basic error reports. 

IXE Inhibit extended error reports. 

PRI Direct all messages to a line printer. 

PNT Print number of test being executed. 

BOE Bell on error. 

UAM Run in unattended mode, bypassing manual 


SEQ 0009 
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rr 


intervention. 

ISR Inhibit stetisticel reports. 

IDU Inhibit dropping of units by diagnostic. 

LOT Loop on test. 
The flags named or equated to 1 are set, those equated to 0 
ere cleared. A flag not specified is cleared. If the flags 
switch is not given all flags are cleared. See example at 
end of "Effect of Start Command” section. 


2.4.1.4 End Of Pass Switch (/EOP:<INCR>) - 


<INCR> Is a decimal number indicating how often (in 
terms of passes) it is desired that the end of pass message 
be printed. The default is at the end of every pass. See 
example at end of “Effect of Start Command” section. 


2.4.1.5 Effect Of Start Command - 


The effect of the start command is to initiate the 
hardware parameter dialogue, the software parameter 
dialogue, the initialization questions, and then the 
diagnostic commences testing. 


The hardware parameter dialogue commences with the 
question "# UNITS (D) ?" to which the ager yter should reply 
with the number of units to be tested. ollowing this are 
the questions whereby the P-Tables themselves are built. 
Each P-Table is a core-resident table containing all the 
hardware information for one complete unit.Each question is 
followed by the response radix (D for decimal, B for binary, 

for octal, L for Yes/No) in parentheses and the default 
value after the parentheses. For the actual Hardware 
P-Table questions see the "Hardware Parameters” section. 


Following the hardware questions are the software 
questions to build the software tables, which define 
operating parameters of the diagnostic program. These 
Questions are described in the “Software Parameters” 
section. 


EXAMPLE: 
STA/TESTS:1:3-4:/PASS:3/FLAGS: IER: HOE=1 


This command will cause three passes to be made, with 
each pass consisting of tests 1,3, and 4. There is no 
difference between saying <FLAG> and saying <FLAG=1>. The 
notation <FLAG=0> is meaningful only on a command other than 
start to clear a flag that was previously set. Note that on 
all commands only the first three letters are scanned. 


SEQ 0010 
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2.4.2 Restart Command - 

PTTTi tii iit tt ttt ttt ttt TTT TTT TT TTT TTT TTT LiL 

RESC( TART)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: 
<FLAG-LIST>/UNITS: <UNIT-LIST> 

Tet tii it itti ii itt iti ttt titi tT ttt ttt TTT TTT TTT TTT tT. 


2.4.2.1 Tests, Pass, And Flags Switches - 


<TEST-LIST>, <PASS-CNT>, and <FLAG-LIST> are as in the 
start command. 


2.4.2.2 Units Switch (/UNITS:<UNIT-LIST>) - <UNIT-LIST> IS 
A__SEQUENCE OF DECIMAL NUMBERS (0,1 ETC.) OR RANGES OF 
DECIMAL NUMBERS (0-5, 8-10 ETC.) THAT SPECIFY THE UNITS TO 
BE TESTED. THE NUMBERS ARE SEPARATED BY COLONS. THE 
NUMBERS MAY RANGE FROM O THRU N-1 (N IS THE NUMBER OF UNITS 
SPECIFIED IN THE PREVIOUS START COMMAND). THE NUMBER 
INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS 
ENTERED DURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 
SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP COMMAND. 
SEE THE DISCUSSION OF ADD AND DROP COMMANDS BELOW. DEFAULT 
iB ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A_ DROP 


= 


2.4.2.3 Effect Of Restart Command - 


The restart command differs from the start command in 
thet the P-Tables from the previous start command (there 
must have been one) are used, instead of new ones being 
built. The software dialogue say optionally be reexecuted 
(operator will be asked). The command can be used after 
command mode has been reentered in any of the three normal 
ways: a) the requested number of passes have been made, b) 
ean error was encountered with the halt on error flag set, or 
c) a control/C was entered by the operator. 


2.4.3 Continue Command - 

WTETTTITITITI TLL tiie tLe 
CONC TINUE )/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 

TTTTTITITITIT TLL TTT LLL LLL LLL 


SEQ 0011 
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2.4.3.1 Flag Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> Is same as in the start command, but 
unspecified flags retain their current value. 


2.4.3.2 Effect Of Continue Command - 


Continue must follow a start or restart, and command 
mode must have been entered due to a halt on error or a 
control/C. The effect of the command is to go to the 
beginning of the test that was being executed when the halt 
or control/C took place. Software dialogue may optionally 
be reexecuted. Hardware parameters may not be changed. 


2.4.4 Proceed Command - 

EERE REEEEEREEE EERE EEREREEEEEREEEEEEEEEAEEEEKEREEEREREEREE 
PROC CEED)/FLAGS: <FLAG-LIST> 

TIT i ttt tit Tt tT ttt TT TTT TTT TTT TT TTT TT TTT TTT TTT TTT TTTTTTit 


2.4.4.1 Flags Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> Is as in the start command, but unspecified 
flags retain their current value. 


2.4.4.2 Effect Of Proceed Command - 


Proceed must follow a start, restart, or continue. 
Command mode must have been entered via a halt on error. 
The effect of the command is to begin execution at the 
location following the error call. Neither hardware nor 
software parameters may be altered. 


2.4.5 Add Command - 
TTI TTT TTT TTT tT TT TTT TTT TTT TTT TLL TTT TTT TTT TTT TtitT 
ADD/UNITS:<UNIT-LIST> 
CREEEEEEE REESE EERE EERE REEEEEEREEEEEEEEEEEEEEEEEEEREEE ERE RES 


2.4.6 E=FECT OF ADD COMMAND - THE UNITS SPECIFIED ARE ADDED 
TO THE TEST SEQUENCE. EACH UNIT MUST HAVE A P-TABLE IN 
MEMORY DUE TO AN EARLIER HARDWARE DIALOGUE. THIS COMMAND 
MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS SWITCH 
MUST BE SFECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR 
UNITS THAT WERE PREVIOUSLY DROPPED. 


SEQ 0012 


a 


LTT es se oe 


RT RR RR 
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2.4.7 Drop Command - . 

LiLo atti Li i TTL TTTTTiTTiTTTT TT iTTTi tT 
DROCP)/UNITS: <UNIT-LIST> 

CESSES EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEERESEREERE 


2.4.8 EFFECT OF DROP COMMAND - THE UNITS SPECIFIED WILL BE 
DROPPED FROM TESTING. THE UNITS WILL BE RESELECTED ONLY BY 
THE EXECUTION OF AN ADD OR START COMMAND. THE UNITS SWITCH 
MUST BE ENTERED. THIS COMMAND MUST BE FOLLOWED BY A RESTART 
OR A CONTINUE COMMAND. 


2.4.9 Print Command - 

SEEKERS SERERESEEEESESEEEEEEEEESEEESESEEEEEEKEEESEEEEREDE 
PRICNT) 

ESSE ESSERE SESERERESEEREEEEEEEEEEEEEEEEEREKREKEEEEEEERE 


2.4.9.1 Effect Of Print Command - Error summary reporting 
is aes somes in this diagnostic, so this command has 
no effect. 


2.4.10 Display Command - 
CREEEOEREEEEEEREE EEE EREE EEE REECE EEEEEEEEEREEREEEEEE EEE REE 


DISCPLAY )/UNITS: <UNIT-LIST> 
TREES EEREEEEREREREREREEEEEEEEEEEEESEE EERE EERE EERE EERE EES 


2.4.10.1 Effect Of Display Command - 


The hardware P-Tables for all units are printed in the 
format in which they were entered. 


2.4.11 Flags Command - 
Titi iit t tit itt it iti itiiiiiiiititiiititiiiitt titi ti ttt tt 


FLACGS) 
SSE SES SSE SRE SES SERS KEES EERE KEREEEEEREEEEREEEE 


2.4.11.1 Effect Of Flags Command - 
The current settings of all flags are printed. 


SEQ 0013 
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Be 


2.4.12 Zflags Command - 
TLidiadeeeeet titi ii iit iii iii titi itiiiiititiiiiiitiiitt: 


ZFLCAGS ) 


SKE KEKEEEEAEESEERAECERERRSE REESE EERE REREREEEEEEEEEEEREEE 


2.4.13 Zflags Command - 


All 


flags are cleared. 


2.4.14 Control Characters - 


Cc 


A control/C (C) entered during the execution of a 
diagnostic causes a return to command mode. 


A control/Z (Z) entered oe one of the two 
operator dialogues-- hardware Table dialogue or 
software P-Table dialogue causes the defaults to be 
taken for the remainder of that dialogue. 


A control/0 (0) entered during the execution of a 
diagnostic causes all teletype output to be 
surpressed for the remainder of the diagnostic or 
until another control/O0 is typed, which restores 
normal teletype output. 


eee 


SEQ 0014 — si! 
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WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT THE 
USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) 2?” YOU MUST 
ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE INFORMATION HAS 
BEEN "PRELOADED” USING THE SETUP UTILITY (SEE CHAPTER 6 OF THE XXDP-+ 
USER'S MANUAL). WHEN YOU ANSWER THIS QUESTION WITH A "Y", THE RUNTIME 
SERVICES WILL ASK FOR THE NUMBER OF UNITS (IN DECIMAL). YOU WILL THEN 
BE ASKED THE FOLLOWING QUESTIONS FOR EACH UNIT: 


1. CSR ADDRESS - This question requests the CSR address of the 
specified DHV11. The default answer for this question is the 
lowest address in the PDP-11 4 ag es, address space in which 
e DHV11-M can be placed (160460 Octal). 


2. INTERRUPT VECTOR ADDRESS - This question requests the 
interrupt vector address of the specified DHV11. 


! 

| 

| 3. ACTIVE LINES BIT MAP - This question requests an octal bit 
i 

| 

| 

| 

| 


SEQ 0015 


i 

| 

| 
map of the serial communication lines on the DHV11 which are 
being selected for testing. If the bit in the bit map is set 
which corresponds to a particular line (i.e. bit 3 for line 

3) that line will be tested by the FVT. 

| 

| 

' 

! 

| 


4. BR Level - This questions requests the interrupt BR level of 
the DHV11. 


2.6 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART OR 
CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) 2?” IF YOU 
WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING "Y". The following 
Software P-Table questions are asked by the een if the operator 
indicates that the Software Parameters are to be changed: 
1. REPORT UNIT NUMBER AS EACH UNIT IS TESTED - This question 
asks whether the program should report the number of the unit 
which it is testing as it begins to test each unit. 


2. NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE - This 
question asks for the number of date errors which should be 
reported individually by this program for each line for each 
transmission test. Errors which are not reported 
individually are reported in summary error reports. 


3. ROM VERSION PRINTOUT ON THE FIRST PASS - This question asks 
whether the program should print out the versions of the on 
board 8051 processor ROMs during the first pass of the 
program. 
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2.7 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE wo." * ENTRIES IN A 
TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST WAY TO 
BUILD THIS TABLE i” TO ANSWER ALL QUESTIONS FOR EACH UNIT TO BE 

TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS A MASS STORAGE 
CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION DEVICE WITH SEVERAL 
LINES, THIS BECOMES TEDIOUS SINCE MOST OF THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT m digg f SUPPOSE YOU ARE be gh A 
FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF A CONTROL 
MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. THESE UNITS ARE 
DESCRIBED BY OCTAL NUMBERS O THROUGH 7. THERE IS ONE HARDWARE 
PARAMETER THAT TORN VARY AMONG UNITS CALLED THE Q-FACTOR. THIS 
Q-FACTOR MAY BE 0©OOR 1. BELOW IS A SIMPLE WAY TO BUILD A TABLE FOR 
ONE XY11 WITH EIGHT UNITS. 
# UNITS (D) ? 8<CR> 


SEQ 0016 


UNIT 1 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?  1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR = sett al (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS ( 


0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ~ sat (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? 


IT 
CSK ADDRESS (0) ? 160000<CR> 


0) 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) ee 
SUB-DEVICE # (0) ? 7<CR> 





CVDHACO DHV11-M FUNC TST PART 1 MACRO Y0S.02 Monday 01-Apr-85 07:47 Page 18 
PROGRAM DOCUMENT 
Q-FACTOR (0) 1? <CR> 
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 
| AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 
# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0 
SUB-DEVICE # ( 
Q-FACTOR (0) 0 


)_?  160000<CR> 
0) ? 0,1<CR> 
? 1,0<CR> 


‘. 160000<CR> 
2-5<CR> 


UNIT 3 
CSR sat ¢ 
SUB - )? 
? O<CR> 


0) 
DEVICE # (0 
Q-FACTOR (0) 0 


UNIT 7 

CSR ADDRESS By ? 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE rh peso ee GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB- DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE “es COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB -DEVICE ; 29? ? 0-7<CR> 


Q-FACTOR (0 0,1,0,.,.1,1<CR> 


SEQ 0017 


' 
— ee ee 


ee ee ee eee 





Fe 
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: 
| 


AS YOU CAN SEE_FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 


A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


SEQ 0018 


ee ee ee 
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2.8 QUICK START-UP PROCEDURE (XXDP-+) 
TO START-UP THIS PROGRAM: 


i. 
2. 


BOOT XXDP-+ 


GIVE THE DATE AND ANSWER THE LSI AND SOHZ (CIF _ THERE 
IS A CLOCK AND THE QUESTION IS ASKED) QUESTIONS 


TYPE “R NAME”, WHERe NAME IS THE NAME OF THE BIN OR 
BIC FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH "Y" 
ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE “CHANGE SW" QUESTION WITH "N” 


FLAGS AND SOFTWARE PARAMETERS. FOR DEFAULT INFORMATION SEE THE 
SECTIONS WITHIN THIS DOCUMENT ON FLAGS,AND HARDWARE QUESTIONS. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


| 
| 

3 

4 

5 

6 

7 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS FOR 

| 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 


ARE ALWAYS PRINTED UNLESS THE "IER" FLAG IS SET (SEE THE FLAGS SECTION 


OF THIS DOCUMENT). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = _—, — R 
UNIT NUMBER = N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
Lo, St = al OR “IBR” FLAGS ARE SET (SEE THE FLAGS SECTION OF THIS 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER", “IBR" OR "“IXR" FLAGS ARE SET (SEE THE 


SEQ 0019 


ee ee eee ome 


He 
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FLAGS SECTION OF THIS DOCUMENT). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 ERROR MESSAGES 


This program is intended to provide a —-? indication of the 

functionality of DHV11-M boards. To execute the program in this mode 
the operator can run with the inhibit basic error reporting switch. 

In this mode the program prints error messages which contain the error 

message header described above, plus the name of the failing test. 

For a list of the test names in this program see the test summaries 

section of this document. An example of such an error message is the 

following: 


CVDHA DVC FTL _ERR 01603 ON UNIT 02 TST 015 SUB 000 PC: 015244 
DEVICE REGISTER WORD READ/WRITE TEST 


This error indicates that a fatal error was encountered within the 
test which tests the read/write capability of the DHV11-M registers. 


If the operator requires more extensive error reporting he can = run 
with all error reporting enabled by not using the inhibit reporting 
switches. The above error message would then become the following: 


CVDHA DVC FTL _ERR 01603 ON UNIT 02 TST 015 SUB 000 PC: 015244 
DEVICE REGISTER WORD READ/WRITE TEST 
BAD BIT(S) IN DEVICE TBUFFAD1 REGISTER FOR LINE 7 (0D). 
EXPECTED DATA: 000000 (0). 
ACTUAL DATA: 000023 (0). 


SEQ 0020 


ee ee ee ow 


Ie 
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| 
| 4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE TOTAL 
NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. THE “EOP” 
SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END OF PASS MESSAGE IS 


PRINTED. 


FOR FUTHER INFORMATION SEE THE SWITCHES SECTION OF THIS 


DOCUMENT . 


5.0 TEST SUMMARIES 
The following tests are included within CVDHA: 


i. 


10. 


Device register address test - Verifies that the UUT 
registers will respond witht the proper Q-BUS handshaking 
— accessed. Verifies that the UUT is at the proper 
address. 


MASTER.RESET (Selftest) test - Verifies that the MASTER.RESET 
bit clears within a specified time of it being set. 


MASTER.RESET (Skip Selftest) test - Verifies that the 
MASTER.RESET bit clears within a short time after it is set 
if the skip selftest sequence is used. 


RX.CHARACTER field test - Verifies that the data bits of the 
codes in the FIFO after a reset and skip selftest are 
consistant with the skip selftest codes. 


Reception flag field test - Verifies that the 3 data status 
bits (COVERRRUN, FRAMING, and PARITY error bits) are all set 
on all of the skip selftest codes in the FIFO after a reset 
and skip selftest sequence. 


RX.DATA.AVAIL test - Verifies that the RX.DATA.AVAIL bit is 
set when the skip selftest codes are in the FIFO and that it 
clears after they are read. 


RX.DATA.VALID test - Verifies that the RX.DATA.VALID bit is 
set for each valid skip selftest code in the FIFO and clear 
after all valid codes are reed. 


RX.LINE field test - Verifies that the RX.LINE fields are 
correct for the skip selftest codes. 


BMP run test - This test runs the BMP and verifies that it 
does not fail within a specified period. This test should 
pignel problems that the BMP codes could cause with later 
tests. 


Skip selftest test - This test verifies that if the selftest 
is skipped the proper codes are placed in the FIFO and that 
no errors are encountered. 


SEQ 0021 


Je 
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11. 


i2. 


i3. 


14, 


15. 


16. 


17. 


18. 


19. 
20. 


21. 


22. 


23. 


24. 


23. 


26. 


DIAGNOSTIC.FAIL (Skip selftest) test - This test verifies, 
using the skip selftest sequence, that the DIAGNOSTIC. Eat 
bit will go to both the active and inactive states. 


Selftest run test - Verifies that no errors are found by the 
execution of the selftest. 


Selftest fail test - Verifies that the selftest will report 
errors correctly when it is forced to fail. 


ROM version printout test - If requested, reports the version 
numbers of the 8051 ROMs. 


Word access read/write test - Verifies that the registers 
respond correctly to word read and write accesses. 


Word access read/modify/write test - Verifies that the 
registers respond correctly to read/modify/write word 
accesses. ; 


Byte access read/write test - Verifies that the registers 
respond correctly to byte read and write accesses. 


Byte access read/modify/write test - Verifies that the 
registers respond correctly to read/modify/write byte 
accesses. 


ID.BIT test - Verifies that the ID.BIT reads as a zero. 


No TX.DATA.VALID/No TX.ACTION test - Verifies thet if a data 
word is written without the TX.DATA.VALID bit set, no 
TX.ACTION is generated. This test does not require that 
cheracters are TXed. 


TX.DATA.VALID / TX.ACTION test - Verifies that if a data word 
is written with the TX.DATA.VALID bit set, it generates a 
corresponding TX.ACTION. This test does not require that 
characters are TXed. 


TX.ENABLE inactive test - Verifies that if the TX.ENABLE bit 
is clear no transmission occurs. 


TX.ENABLE active test - Verifies that TX occurs if the 
TX.ENABLE is set. 


Interrupts test - Verifies that the TX and RX interrupts are 
functioning correctly. 


BR level test - Verifies that the UUT generates TX and RX 
interrupts at the correct BR level. 


DIAG field (BMP) test - Verifies that a request for BMP code 
reporting is answered by the UUT within the specified time. 


SEQ 0022 


4 


— eee oe aoe 


TTT A 
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27. aes BMP codes test - This pseudo test reports the first 32 

BMP codes which were discovered in the FIFO during the 
execution of the other tests. This avoids the interruption 
of other tests - 4. ey codes, if they are not critical to 
the tests being perfor 

i 


6.0 EXAMPLE ERROR FREE PASS 
The + stl is an example of an error free pass dialogue: 
CVDHACO. BIC 

ORS 

CVDHA-C-0 

DHV11-M ton} yy PART1 

UNIT IS DHV 

RESTART ADDR: 147670 

DR>STA 

CHANGE HW (L) ? Y 

# UNITS (D) ? 2 


UNIT 0 
CSR ADDRESS: (0) 160460 ? tZ 


UNIT 1 
CSR ADDRESS: (0) 160460 ? 160040 

: (92 300 ? 320 
ACTIVE LINE BIT MAP: (0) 377 9 ecR> 
INTERRUPT BR LEVEL: (0) 4? < ‘cR> 
CHANGE SW (L) ? Y 
REPORT UNIT NUMBER AS EACH UNIT IS TESTED: (L 
NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON 
ROM VERSION PRINTOUT ON THE FIRST PASS: (L) Y 
TESTING UNIT : OCD) 
ROM VERSION NUMBERS: PROC_1 = 2(0) PROC_2 = 2(D) 
TESTING UNIT : 1(D) 
ROM VERSION NUMBERS: PROC_1 = 2(0) PROC_2 = 2(D) 


CVDHA EOP 1 
O CUMULATIVE ERRORS 


4 LESTING UNIT : O(D) 
DR> EXIT 


>) ¥ 7 aOR 
os LINE: (0) 074 


SEQ 0023 


me ee 


ee ee ee eee 





Le 
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000000 


000000 


002000 


002005 


000001 
000001 
000001 
000001 
000001 


002000 


SEQ 0024 


-LIST SEQ,LOC,BIN,MEB 
-NLIST CND 


5 95 95 96 96 9 i 0 i 0 0 0 0 0h ut ul ul uh 0 0 0 0 0 0 0 ut gl 0 hu uh uh 0 uh 0 0 0 0 0 0 0 0 0 0 gh os 


; VOHA . PHD 
| SHAKAK ALA AAAK LAK KAAS KAAS S AMAA AK AAAS KAA A KALLA SEK 


-SBTTL Program Header 


-MCALL SVC 
SVC ; INITIALIZE SUPERVISOR MACROS 


5 5 95 96 96 5 9 0 0 i 0 0 0 hu 0 0 hh ll ul uh ul ul 0 ul 0 0 zu 0 0 0 uk wh 0 0h 0 0 0 0 9 0 wh 
; IF STRUCTURED MACROS ARE TO BE USED, ADD ".MCALL STRUCT” AND “STRUCT” 
5 TO INITIALIZE THE STRUCTURED MACROS. 


SVCINS= 1 ; LIST INSTRUCTIONS, SHIFTED RIGHT 
SVCTST= 1 ; LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= 1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= 1 ; LIST GLOBAL _ TAGS, SHIFTED RIGHT 
SVCTAG= 1 ; LIST OTHER TAGS, SHIFTED RIGHT 


; CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF 5 ~ WISH 
; TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 

; SYMBOLS TO BE MINUS-ONE TO NOT LIST THE ali a YOU MAY 

; CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRA 

| SSAAGNNKASKAOKKNRKMNAN RENAN ROSSINI ASNASKAMKANKAMKONNNsnseKS 


-ENABL ABS 
;-ENABL AMA 
. . 2000 


BGNMOD 


;*+* 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT,BGNSW,BGNSFT,BGNDU, ERRTBL 


HEADER CVDHA,C,0,16,0,PRIO7 
L$NAME: : 
-ASCII /C/ 
-ASCII /V/ 
-ASCII /D/ 
-ASCII /H/ 
-ASCII /A/ 
-BYTE 0O 


———— oe 
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000016 
036354 
036546 
002214 
002226 
037064 
000000 
000000 
000000 
000000 
002124 
000340 
000000 
000000 

35 
000000 
004036 
024234 
000000 
000000 
000000 
025156 


LSREV:: — 
L$DEPO:: | 
LS$UNIT:: 
L$TIML:: 
L$HPCP:: 
L$SPCP:: 
LS$HPTP: : 
L$SPTP: : 
LS$LADP: : 


L$STA:: 
L$CO:: 


L$DTYP:: 


L$APT:: 
L$DTP:: 


L$PRIO:: 
LSENVI:: 
LSEXP1::" 
L$MREV:: 


LSEF:: 


L$SPC:: 


L$DEVP:: 
L$REPP: : 
LSEXP4:: 
LSEXPS:: 
L$AUT:: | 
L$DUT:: — 
LSLUN:: 


SEQ 0025 


16 

L $HARD 
L$SOFT 
L$HW 

L$SW 
L$LAST 

0 

0 

0 

0 
L$DISPATCH 
PRIO7 

0 

0 
eeayesto 
0 

L$DVTYP 
L$RPT 


+ eee coe oe 


= ee ee one 


——e - =< 
. 
« 
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1137 


eet etl leet 


000000 
004046 
104035 
003766 
024250 
025120 
025116 
024242 
000000 
000000 
000000 








L$DESP: : 
L$LOAD: : 
LSETP:: 
L$ICP:: 
L$CCP:: 
L$ACP:: 
L$PRT:: 
L$TEST:: 
L$OLY:: 
L$HIME: : 


SEQ 0026 


0 
L$DESC 
E$LOAD 
LSERRTBL 
L$INIT 
L$CLEAN 
L$AUTO 
L$PROT 


— ee ae <a aecemeee - & 


— — 
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SEQ 0027 


1157 


1149 -SBTTL DISPATCH TABLE 
1131 
1152 ; "THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF _— TEST. 
133 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST 
1155 
1156 002122 DISPATCH 27 
002122 000033 -WORD 27 
002124 L$DISPATCH: : 
002124 025274 -WORD Tl 
002126 025564 -WORD T2 
002130 026000 -WORD T3 
002132 026230 -WORD 14 
2641 -WORD TS 
026570 -WORD 16 
002140 026772 -WORD T7 
002142 027164 -WORD T8 
002144 027356 -WORD T9 
002146 027530 -WORD 110 
027730 -WORD Til 
002152 030142 -WORD T12 
002154 03041 -WORD 113 
002156 030752 -WORD 114 
002160 031336 -WORD T15 
002162 1546 -WORD 116 
002164 031762 -WORD 117 
002166 032226 -WORD 118 
002170 032476 -WORD 119 
002172 032604 -WORD T20 
002174 033014 -WORD Tel 
002176 033250 -WORD T22 
002200 033550 -WORD T23 
002202 034106 -WORD 124 
035132 -WORD T25 
002206 036014 -WORD T26 
002210 036272 -WORD T27 
| 
| 


CL, TE a _-- eee 
‘ 
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SEQ 0028 =! 

DISPATCH TABLE | 

1165 

1166 ; MSNA ALAA LSA ALAS SKS LASS AKL S AKASAKA SAKA eS 

1168 VDHA . DHT | 

1170 | SHMSSAKA SAKA AKS SAKA AKA AAA SKA AA ALKA AKASAKA AKA SKS TKS | 

1174 -SBTTL DEFAULT HARDWARE P-TABLE 

Ne 

1177 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

1178 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

1179 ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

arty ; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 

1182 : 

1183 002212 - BGNHW DFPTBL 

002212 000004 -WORD L10000-L$HW/2 
002214 L$HW:: 

1184 

1185 002214 160460 . WORD 160460 ;Default CSR Address 

1186 002216 000300 . WORD 300 ;Default Vector Address 

1187 002220 177777 -WORD 177777 ;Default Active lines bit map 

1188 002222 004 .BYTE 4 ;Default BR Level 

1189 .EVEN 

1190 

1191 002224 ENDHW 


| 

002214 DFPTBL:: 
002224 L10000: 

| 

| 

| 
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' 


| 
| 
| 


002224 


002226 
002230 


002232 
002232 





OO —————— ee —_—- — 


DS 


‘ 
| 


SEQ 0029 


bal alalalalalalalalalalalalalallniiaisialaniinisiniaaiaaainaiaaiaiaiaiainiainiaisiataipiniaisiniiatteiiee eine se ee eet ete ttt tt tthe t RTT tty 


5 VDHA . SWT 
| SEAAKASAAAKAAL LLL K KASS KK AKL AKKKKK LAS KKK ALLAN K KATATE Nn 


-SBTTL SOFTWARE P-TABLE 


+4 

; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
i Bt ans aaa TIME AND MAY BE VARIED BY THE OPERATOR 


BGNSW = =SFPTBL 


000002 -WORD L10001-L$SW/2 
SFPTBL 
000021 OPTION: : -WORD 21 sbit map of program control flags 
000000 NDERPT: : -WORD 0 ;Default number of individual data errors to rpt. 
ENDSW 


L10001: 


fa 
n 
w 
= 
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, SOFTWARE P-TABLE 


x 


| 
1224 


1264 
1279 002232 


000010 
000377 


000000 


000016 


000020 
000030 
000100 


100000 
040000 


000002 


5 89 96 96 95 9 9 0 sh 0 ul gh 0 tu 0 ut 0 0 0 gh 00h 0 gh 0 00h hp 0 gg 0 0 0 ge gg 


VOHA .EQU 


+ 


SEQ 0030 


| SSAAAAKAAK ALLA S SAKA AALS ASK K AA AK LALLA KKK 


-SBTTL GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 


5 eee 


peekeee 


NUMLNS==10 
MAPLNS==377 


ot gaia 


STATO==6 

LNCTRO==10 
TXAD10==12 
TXAD20==14 
TXBFCO==16 


sNUMBER CF LINES ON DHV11 IS 8. 
;BIT MAP OF LINES ON DHV11. 


OFFSETS FROM THE CSR'S ADDRESS **«e«% 


;CSR REGISTER OFFSET FROM THE CSR ADDRESS 

sRECEIVE REGISTER OFFSET FROM THE CSR ADDRESS 

; TRANSMIT REGISTER OFFSET FROM THE CSR ADDRESS 

sLINE PARAMETER REGISTER OFFSET FROM THE CSR ADDRESS 
sSTATUS REGISTER OFFSET FROM THE CSR ADDRESS 

sLINE CONTROL REGISTER OFFSET FROM THE CSR ADDRESS 

; TRANSMIT ADDRESS 1 REGISTER OFFSET FROM THE CSR ADDRESS 
;TRANSMIT ADDRESS 2 REGISTER OFFSET FROM THE CSR ADDRESS 
; TRANSMIT COUNT REGISTER OFFSET FROM THE CSR ADDRESS 


EQUATES USED WITH RESPECT TO THE RX BUFFER ##«xe 


RXBETX==16. 
RXBDTX==24, 
RXBFUL==64. 


EQUALS 


; BIT DIFINITIONS 


BIT15== 
BIT14== 
BIT13== 
BIT12== 
BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BIT06== 
BITOS== 
BIT04== 
BITO3== 
BITO2== 
BITO1== 


100000 


;sLEVEL OF RX BUFFER AT WHICH TO RE-ENABLE TRANSMISSION. 
sLEVEL OF RX BUFFER AT WHICH TO DISABLE TRANSMISSION. 
;TOTAL CHARACTER CAPACITY OF THE RX BUFFER. 


ee i - 


‘ 
—4 


sa ame 
i a 


a ne ee ee 


FS 


_ A 
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GLOBAL EQUATES SECTION 


000001 


000002 
000001 


000040 
000037 
000036 
000035 
000034 


000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 


100000 


BITOO== 


BIT9== 
BIT8== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BIT1== 
BITO== 


EF .START 


1 


BITO9 
BITO8 
BIT07 
BIT06 
BITOS 
BITO4 
BITO3 
BITO2 
BITO1 
BITOO 


EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .RESTART== 
EF .CONTINUE== 


EF .NEW== 
EF .PWR== 


32. 
31. 
30. 
29. 
28. 


; PRIORITY LEVEL DEFINITIONS 


PRIO7== 


340 
PRI06== 300 
PRIOS== 240 
PRI04== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 
;OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2009 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


SEQ 0031 


BIT POSITION IN SECOND STATUS WORD 


; (100000) START COMMAND WAS ISSUED 

; €040000) RESTART COMMAND WAS ISSUED 

; (020000) CONTINUE COMMAND WAS ISSUED 

; (010000) A NEW PASS HAS BEEN STARTED 

; (004000) A POWER-FAIL/POWER-UP OCCURRED 
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GLOBAL EQUATES SECTION oe Come 
| 1282 
| i3ba 5 55 96 6 9 9 9 6 ll 0 ul 0 hh hh i 0 hu 0 0 9 0 uh 0 9 gh gb gh wh 9 
ise; ; VDHA .GDT 
yet ; 5H 6 $6 96 96 6 96 96 6 5 wh 0 6 0 0 uh 0 uh 0 i huh tu hh 0 hb 0 0 0 hu 0 0 0 9 0 9 gh 0 9 gs 
1289 
1290 
1291 -SBTTL GLOBAL DATA SECTION 
1292 
1293 3¢ 
1294 ; THE GLOBAL DATA so oe CONTAINS DATA THAT ARE USED 
1295 ; IN MORE THAN ONE TEST 
1296 3-- 
1297 
1298 EPP ti Tis tt te teeter rit tit ttt tt tt ttt ttt tt TTT TTT TTT TTT TTT TTT TrTTrTrerT tT: 
1299 ; Unit Varible Area 
129 eter i titi tri ti tit titi tit tt ttt TT TT TTT TTT TTT TTT TT TTT TT TTT TT 
1302 002232 000300 RXVECA:: .WORD 300 ;RX VECTOR ADDRESS. 
1303 002234 000304 TXVECA:: .WORD 304 ;TX VECTOR ADDRESS. 
1304 002236 000377 ACTLNS:: .WORD 377 sACTIVE LINE BIT MAP. 
1305 002240 000000 UNITN:: .WORD 0O ;UNIT NUMBER. 
1306 002242 004 BRLEVL:: .BYTE 4 ; INTERRUPT BUS REQUEST LEVEL 
i. EVEN 
1309 PEPE titi sits Ts te ett ttt t i et ttt tt tt ttt TT ST TTT TT TT TTT TT TT TTTiTTTTT 
1310 ; Device Register Address Table 
1311 ee ttt it Tritt i iii sti titi ttt tit tt ttt tte TTT Te TTT TTT TTT TT TT TTT TT 
1312 002244 2: 
1313 002244 160020 CSRA:: .WORD 160020 ;DHV11-M CSR ADDRESS 
1314 002246 160022 TXCHA:: RBUFA:: .WORD 160022 ;DHV11-M RECEIVE/TRANSMIT BUFFER ADDRESS 
1315 002250 160024 LPRA:: .WORD 160024 ;DHV11-M LINE PARAMETER REGISTER ADDRESS 
1316 002252 160026 STATA:: .WORD 160026 ;DHV11-M STATUS REGISTER ADDRESS 
1317 002254 160030 LNCTRA:: .WORD 160030 ;DHV11-M LINE CONTROL REGISTER ADDRESS 
1318 002256 160032 TXAD1A:: .WORD 160032 ;DHV11-M TRANSMIT BUFFER 1 REGISTER ADDRESS 
1319 002260 160034 TXAD2A:: .WORD 160034 ;DHV11-M TRANSMIT BUFFER 2 REGISTER ADDRESS 
tase 002262 160036 TXBFCA:: .WORD 160036 ;DHV11-M TRANSMIT BUFFER COUNT REGISTER ADDRESS 
1322 
1323 Ett tT lS te tet ttt rt ri ttt tit tt tt ttt TT TT TTT TTT TOT TTT TTT TTTTT TT TTT 
1324 ; Bit mask table of un-used DHV device register bits. 
1325 Daath ett Aaa tat talp to tadatahcich behest pte bd ede debs 
1326 002264 137660 UNBTTB::.WORD 137660 ;UNUSED BIT MASK FOR THE CSR 
1327 002266 177777 “WORD = =.177777 ;UNUSED BIT MASK FOR THE RBUF/TX REG 
1328 002270 000007 -WORD 7 ;UNUSED BIT MASK FOR THE LPR 
1329 002272 177777 -WORD 177777 ;UNUSED BIT MASK FOR THE STAT 
1330 002274 166051 -WORD 166051 ;UNUSED BIT MASK FOR THE LNCTRL 
1331 002276 000000 -WORD 0O ;UNUSED BIT MASK FOR THE TBUFFAD1 
1332 002300 077700 . WORD 77700 ;UNUSED BIT MASK FOR THE TBUFFAD2 
ites 002302 000000 -WORD O sUNUSED BIT MASK FOR THE TBUFFCT 
1335 5 RR ER EE EERE RARE RARER ERE EERE EE REAREEEEEEE EEE EE EES 
1336 ; Register Message Address Table 
1337 JOE KR ERE EE ERE EE EEEE REE EEE EES 


1338 002304 006004 RMATBB:: .WORD DROOMG ;ADDRESS OF “CSR” MESSAGE. 


H3 


———— ne 


| CVDHACO DHV11-M FUNC TST PART 1 MACRO Y0S.02 Monday 01-Apr-85 07:47 Page 30-1 
| GLOBAL DATA SECTION 


002352 


002354 
002356 


002376 


002400 
002402 
002404 
002406 


002410 
002412 
002414 
002416 
002420 
002422 
002424 
002426 


006010 
006015 
006021 
006026 
006035 
006046 
006057 


000000 
000000 


177546 
000300 
000100 
000074 
000000 
000000 
000170 
000170 
000021 
000062 


177572 
000000 
000000 
172340 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 


DRO2MG 
DRO4MG 
DRO6MG 
DR10MG 
DR12MG 
DR14MG 
DR16MG 


ADDRESS OF “RBUF” MESSAGE. 
sADDRESS OF “LPR” MESSAGE. 
sADDRESS OF “STAT” MESSAGE. 
;ADDRESS OF “LNCTRL” MESSAGE. 
sADDRESS OF “TBUFFAD1” MESSAGE. 
s;ADDRESS OF “TBUFAD2" MESSAGE. 
;ADDRESS OF “TBUFFCT” MESSAGE. 


SESE eT eT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT er ren 


; Assorted global variables: 
5 RRR KEE EER RRR ERR R KERR EEE ERE EEE RE EE EERE EE EERE EE EEE EEE EEE EE EERE EES 


BUFPTR:: 
TSTNUM:: . 
IESTAT:: . 
PASCNT:: . 
RXINTC:: . 
RXINTF:: . 
TXINTC:: . 
TXINTF:: . 
TP4VEC:: . 
TP4FLG:: . 
WORDI:: . 
CTRLCF:: . 


. WORD 


ooooooooooroe 


sSTORAGE FOR RECEIVE CHARACTER BUFFER POINTER. 
;STORAGE FOR THE TEST NUMBER. 

;STORAGE FOR THE INTERRUPT ENABLE BIT STATES. 
;STO'G FOR PASS COUNT USED IN ROM VERSION# TST. 
sSTORAGE FOR RECEIVER INTERRUPT FLAGS. 
;STORAGE FOR RECEIVER INTERRUPT FLAGS. 
;STORAGE FOR TRANSMIT INTERRUPT COUNT. 
s;STORAGE FOR TRANSMIT INTERRUPT FLAGS. 
s;STORAGE FOR THE NORMAL 004 TRAP VECTOR. 
sFLAGS SET WHEN AN EXPECTED 004 TRAP OCCURS. 
;LOCATION FOR PASSING INDIRECT PARAMETERS. 
;STORAGE FOR THE CONTROL -C FLAG. 


Th dame Thame Chaahe aderleitiees mek RL EEE RR ER Rn EnENSOR 


Line Time Clock variables and storage. 
[AAREA EATER ATTA ARTE A EAHA ATER ERA E RARER REE ER EERE EER EEEEEEREEEREREREREEEEES 


CLKCSR: : 
CLKBRL:: . 
CLKVEC:: . 
CLKHRZ:: . 
TIMERI:: . 
TIMER2:: . 
TIMER3:: . 
BCOUNT:: . 
MSTICKs: . 
MSLCNT:: . 


. WORD 


177546 
PRIO6 


;CSR_ ADDRESS OF THE LTC. 

;INTERRUPT PRIORITY LEVEL OF THE LTC. 

; INTERRUPT VECTOR ADDRESS OF THE LTC. 

s INTERRUPT FREQUENCY OF THE LTC. 

sHARDWARE CLOCK COUNTER #1. 

sHARDWARE CLOCK COUNTER #2. 

sHARDWARE BREAK COUNTER LOCATION. 

sBREAK COUNT VALUE IN CLOCK TICKS. 

sNUMBER OF MILLI-SECONDS PER LTC TICK. 
;LOOP COUNT (USED BY MSLOOP) TO DELAY 1 MS. 


nn Geese Teeeeneaeaas Gan tabdn me tae 


Memmory Management Variables and Flags 
peecesesocescsneeocesesenonnonnasessenntonnrentonenseoanensaosbeosoenebaneness 


MMSRO: : 
MMPRES: : 


MMENAB:: 
PAROA:: 


. WORD 


. WORD 


177572 


172340 


;ADDRESS OF MEM MGT STATUS REGISTER #0. 

;MEM MGT PRESENT FLAG (0 IF MM NOT PRESENT). 
;MEM MGT ENABLED FLAG (0 IF MM NOT ENABLED). 
ADDRESS OF MEM MGT PAR #0. 


5 REE EERE EERE RAE EE AEA EEE EEE EERE EEE EEE EE EEE EEE EERE EEEEEE EEE EEE RE 
; Table of words with corresponding bit set for generation of bit maps. 
b< 0 paper > ler eaaeengmeaaeeer -— 9 0 meeemennemeeneenneemneeeamn eee 


BITTBL:: .WORD 


1 


;BIT O SET. 
;BIT 1 SET. 
;BIT 2 SET. 
;BIT 3 SET. 
;BIT 4 SET. 
;BIT 5 SET. 
;BIT 6 SET. 
;BIT 7 SET. 


SEQ 0033 


' 
-4 


me ee ee 


1396 
1397 


002430 
002432 


002460 


002462 
002464 


002524 
002526 
002726 


002726 
002726 
003326 
003526 
003726 
003726 


003766 
003766 
003766 
003770 
003772 
003774 


000000 
000000 
000000 
000000 
000000 


000000 


000000 


000000 
000000 
000000 
000000 


is 
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-WORD 400 ;BIT 8 SET. 

-WORD 1000 ;BIT 9 SET. 

-WORD 2000 ;BIT 10 SET. 
-WORD 4000 ;BIT 11 SET. 
-WORD 10000 ;BIT 12 SET. 
-WORD 20000 ;BIT 13 SET. 
-WORD 40000 ;BIT 14 SET. 
-WORD 100000 ;BIT 15 SET. 


5 RRR RRR KEE EERE EERE ERE ERE EERE EEE ERE EEE REE EEE AEE EE EAE RE EERE EEEEEES 


;* GPR Save Area Zero. 
Reece et ttt ttt ttt tt ttt it tit tit tt ttt ttt ttt tt ttt ttt TT TT TTT TTT TT TTT TTT TTTTTTTTTT et 


GPRSOB: : ;BASE OF GPR SAVE AREA NUMBER ZERO. 

-WORD O ;WORD 1, STORAGE FOR R1. 

-WORD O ;WORD 2, STORAGE FOR R2. 

-WORD O ;WORD 3, STORAGE FOR R3. 

-WORD O ;WORD 4, STORAGE FOR R4. 

-WORD O ;WORD 5, STORAGE FOR RS. 
ett T ET iS i ttt ete terre ett ttt i titi titi ttt tt ttt tt ttt tt Tit TTT TTT TT TTT TTT TTT TT 
:* Transmission and Reception Variables, Pointers, and Flags 


prrerrirsetrtterertisterissrrecserertestrrtrciecserterareetvetttetreerttrrerey 
ERSMRF:: .WORD 0 sERROR SUMMARY REPORT FLAGS. 
ERCNTB: : -BLKW 16. ;TABLE OF ERROR COUNTERS. 


ttt terest TTT TT ttt i tri titi titi tii t ttt tits ttt TTT TTT TT TTT TTT TTT TTT TTT TTTT TTT TT 
; Storage area for the BMP code queue. 

ieee ett t tt ett ttt PPT TPP i ttt i tit tit ti it tit ttt tt tt tTTT TTT TTT TT TTT TTT TTT TTTT TTT 
BMPCOP: : -WORD O ;POINTER USED TO ACCESS THE NEXT CELL IN QUE. 
BMPCGB: : -BLKW 64. ;STORAGE FOR 32 CELLS, TEST# PLUS BMP CODE. 
BMPCQE: : ;LAST ADDRESS PLUS 2 OF THE BMP CODE QUEUE. 

5 RRR EERE REE AREER EERE RREEEREREEEE EEE ER EERO REE RRRE EER EEEE 
; General table and buffer area--513 words. 

5 RRR EER ERE EEE E EEE E EEE REE REE E EARS EEEEE EEE EEEEE EERE EEE EEEEEEEEEEEE 


BUFBAS: : ;BASE OF MEMORY BUFFER. 
ERLTBL: : -BLKW 128. ;FIRST HALF OF GENERAL TABLE OR BUFFER. 
BUFMID: : .BLKW 64. ; SECOND HALF OF GENERAL TABLE OR BUFFER. 
BUF 3QT: : -BLKW 64, ;LAST QUARTER OF THE BUFFER AREA. 
BUFEND: : ;END OF GENERAL PURPOSE MEMORY BUFFER. 
ENDETB: : -BLKW 16. ;BUFFER OVERFLOW SPACE. 

ERRTBL 

LS$ERRTBL: : 

ERRTYP:: . WORD 0 
ERRNBR: : -WORD O 
ERRMSG: : . WORD 0 
ERRBLK: : -WORD 0O 

.EVEN 


SEQ 0034 


— 


a 


me ee ee oe 
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| GPR HANDLING ROUTINES FOR SUBROUTINE CALLS. 


-SBTTL GPR HANDLING ROUTINES FOR SUBROUTINE CALLS. 
5 RRR EERE ERE E ERE E ERE E ER ER AREER EEE EERE ER ER RR ERERERER EEE EE REE E EE 


eeRHRHRH HH HE 


There are 4 routines and macro definitions used for the handling of 
GPR values during subroutine calls within this program. The four 
routines/macro calls have the following names: 


SAVE - Macro definition used at the beginning of a subroutine to 
save the GPR contents for later restoration. 

PASS - Macro definition used at the end of a subroutine to restore 
the previously saved GPR contents and to leave the contents 
of the specified GPR(s) intact (NOT restored). 

PREGOS - Subroutine which is called from the SAVE and PASS macro 
expansions which actually performs the actions on the GPRs. 


During a subroutine which uses these GPR save routines the values 
of the GPRs are stored on the stack in the following stack frame: 


SP -> RET PC INTO PREGOS ROUTINE. 

SP+2 -> GPR RO CONTENTS. 

SP+4 -> GPR R1 CONTENTS. 

SP+6 -> GPR R2 CONTENTS. 

SP+8 -> GPR R3 CONTENTS. 

SP+10 -> GPR R4 CONTENTS. 

SP+12 -> GPR RS CONTENTS 

SP+14 -> RET PC INTO CALLER OF SUB’ TNE WHICH CALLED PREGOS. 


Each level of sub’tne calling uses 8 words of stack overhead. 

The SAVE and PASS macros can also be used in "straight line code” 
to save and restore the GPR values. In any case, after the 
issuing of a PASS call the GPRs will be restored to the values 
they had prior to the last SAVE call (except for the excepted, 

or passed intact, GPRs specified as parameters to the PASS call) 
and the SP will also be restored to its condition before the last 
SAVE call. The programmer must be sure that the SP has the same 
value when the PASS macro is called as it had immediately after 
the SAVE macro was called. 


(A ORE EERE KEE EKEREKEER KARR EKER 


SEQ 0035 


oe ce — << — 


KS 
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, GPR FRAME ACCESS EQUATES 


| 
| 1491 


1492 

1493 

1494 

1495 

1498 000036 

1499 000016 

1500 000014 

1501 000012 

1502 000010 

1503 000006 
04 000004 

1505 000002 


SEQ 0036 


.SBTTL GPR FRAME ACCESS EQUATES 
; +44 
sEquates that allow access to the stack frame. These are the 
ioffsets into the stack for registers saved during the PREGOS 


;routine. 

LPCSLT== 36 :0ffset for last return PC. 
PCSLOT== 16 ;0ffset for return PC. 
RSSLOT== 14 :0ffset for R5. 

R4SLOT== 12 ;0ffset for R4. 

R3SLOT== 10 ;0ffset for R3. 

R2SLOT== 6 ;0ffset for R2. 

RiSLOT== 4 :0ffset for R1. 


ROSLOT== 2 ;Offset for RO. 
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GLOBAL MACRO DEFINITION - SAVE - owe 
1507 .SBTTL GLOBAL MACRO DEFINITION - SAVE - 
9 :* This macro is used at the beginning of a subroutine to save the 
tae ;* contents of the GPRs RO thru RS. 
;* 
1512 ;* INPUTS: SP - yprchanges since subroutine was entered 
a3 ;* RSSLOT - Offset to stack slot for R5 (Equated to 14 Octal) 
;* 
1515 ;* OUTPUTS: GPR save area on the stack is loaded with the contents of GPRs 
tai8 7 TOP OF STACK - Loaded with the return address into PREGOS 
3;* 
raise ;* CALLING SEQUENCE: SAVE 
;* 
1520 ;* COMMENTS: No arguments are allowed. 
prt ;* The PASS macro should be called to restore the GPR values. 
3% 
1523 ;* SUBORDINATE ROUTINES CALLED: PREGOS. 
1328 Pitti tt ttt ttt TTT TIT TTI Ti TTT t tt TTT TELL T LLL LLL LLL. 
1526 -MACRO SAVE 
1527 -LIST 
tase JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 


1208 5 ARERR EE AREER EERE EERE EERE EEE REESE EERE EE EERE EER EERE EERE REE EERE EEE EERE EEE EE 
-NLIST 

1530 -ENDM SAVE 

\ 

' 


me a K- 


— a ee ee ee 





M3 


| CVDHACO DHV11-M FUNC TST PART 1 MACRO Y0S.02 Monday 01-Apr-85 07:47 Page 34 


| GLOBAL MACRO DEFINITION - PASS - 
1532 -SBTTL GLOBAL MACRO DEFINITION - PASS - ; 
1533 SERRE ERRE ERE ERE E ERE EERE SEES EEE EEE EEE EEE EEEEEEEEE EEE EEEEEEEEEERE ERE EREE EES 
1534 3* This macro is used in conjunction with the SAVE macro. It is 
1535 ;* called at end of a subroutine to pass parameters in GPRs back to the 
1536 ;* calling routine a R save area on the stack and then 
iets ;* returning to PREGOS to restore the GPRs to their saved values. 
;* 
1539 ;*- INPUTS: Only allowed ARGUMENTS are “RO” thru "R5". 
1540 ;* ROSLOT thru RSSLOT must be equated to their respective GPR save 
reas ;* slot offsets before calling this macro. 
;* 
ies 3* OUTPUTS: The GPR values are put in their respective slots on the stack. 
;* 
teed ;* CALLING SEQUENCE: PASS 
;* 
1547 ;* COMMENTS: Any combination of GPR arguments a be listed in any order. 
1548 ;* For mange, the following are legal: 
1549 :* ASS Ri 
1550 :* PASS 
1551 ;* The GPRs listed as arguments will be passed intact to the 
1552 ;* calling routine, all other GPRs will be restored. 
tH 3 * The SP must be at its original value when PASS is called. 
;* 
1555 i* The macro call 
1556 * PASS 
1557 ;* expands into the a ach are assembly code: 
1558 ;* MOV SP) s;PUT RO IN STACK SLOT. 
1559 ;* MOV R3,R3SLOT(SP) ;PUT R3 IN STACK SLOT. 
1560 i* _ JSR C,a(SP)+ ' sRETURN TO PREGOS SUBRT. 
1561 3% In this example GPRs R1, R2, R4, and R5 will be restored to 
1562 ;* their values contained in the stack frame and RO and R3 
1365 ;* will be left at their values prior to this PASS call. 
7* 
1565 ;* SUBORDINATE ROUTINES CALLED: (PREGRT - Label within PREGOS, value on stack.) 
1566 EERE EEE EERE EERE EERE EERE AEE EE EEE EERE EEE EERE EE EEE EEEEEEEEEEEEEEREEEEOREEE EES 
1567 
1568 -MACRO PASS A,B,C,D0,€,F 
1569 . IRP X,<A,B,C,0,E,F> 
1570 IF NB , X 
1571 -LIST 
1572 MOV X,X' SLOTC(SP) sPUT X IN STACK SLOT. 
1573 -NLIST 
1574 .ENDC 
1575 .ENDM 
1576 -LIST 
1577 JSR sRETURN TO PREGOS SUBRT. 
1578 -NLIST 
1579 .ENDM PASS 





a a a 


SEQ 0038 


sient eae ene ainataiiaeiiiaitiacn aasaniciariat 
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a 


| GLOBAL SUBROUTINE 


5 
1606 003776 
1607 003776 
004000 


1609 004002 
004004 
004006 

1612 004010 

set? 004012 

1615 004016 


016608 
004736 


012605 


000014 








-SBTTL GLOBAL SUBROUTINE 
sRREREREREEEE REESE EERE ESSERE EEE REESE EERE ARES ESAS ES EERE EERE EERE EREE HERERO EES 


Preserve Registers RO through RS for subroutine calls. 
;* INPUTS: 


nt 
;* 


;* 


;* 
;* OUTPUTS: 


;* 
s*CALLING SEQUENCE: 


;* 
;* 


;* 
3 *COMMENTS: 


;* 
;* 


;* 
3;* 
3;* 
;* 
3;* 


pase return address back into the callin 


RS. 


ce 


- PREGOS - 


routine must be in 
(i.e.- Macros use "JSR R5,PREGOS”.) 


Registers RO through R5 are saved on the stack. 


SAVE ;Macro expansion calls PREGOS. 
pieroutine code]... 


;Macro expansion recalls PREGOS. - 


This routine is re-entrant. 


Parameters may be passed out of a subroutine by modifying the 


register 


save area on the stack. Use the PASS GPRn macro 


to return GPR velues intact. 
Use the RnSLOT offsets from the SP to pees wy pene, 


(Example: 


VALUE ,ROSLOT( SP ) 


Make sure the SP is at its original velue when you do this. 


;* 
;#SUBORDINATE ROUTINES CALLED: None. 
EREREEEEERERE EERE EERE EERE EERE REE EE EE ERERER ER EREREEEE REESE EEE SESE RES EERE EEES 


PREGOS: 


PREGRT: : 


;*e¢ 


;RS HAS BEEN — ON THE STACK BY THE SUBROUTINE CALL 


R4,-(SP) : SAVE 

R3,-(SP) ;SAVE R3 

R2,-(SP) ;SAVE R2 

R1,-(SP) ere Ri 

RO eo” ( SP) rf 3; SAV E RO 

RS,-(SP) ;PUSH RETURN PC ON TOP OF STACK 
RSSLOTC(SP),RS ; RESTORE RS TO VALUE IT HAD BEFORE CALLS 
PC,a(SP)- ;Call the subroutine at the return address 


sfrom the PREGOS call, putting the present 
:PC on the stack as a return address into 
sthis (PREGOS) routine. 


; The vodevieg code is executed when the calling routine does a 


;"return” (JUS 


PC,a(SP)+] 


] using the PC deposited on the stack "dowels 


;Put return PC in R5. 
;Restore RO. 

;Restore R1. 

;Restore R2. 

:Restore R3. ‘ 
sRestore R4. 


sReturn to the subroutine which called PREGOS. 
srestoring R5 in the process. 


[- 


ee ee ee ee ee 
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RT 


126 
055 


-SBTTL GLOBAL TEXT SECTION 


halal eat alalalalaialalalaialaablsiiainiiniaiisniainainisininistaniatainiataaisisisisisineiiieniieuyinit itt ee ttt TT tt TET TTT heey 


FVTSKL1.P11 
SHALL AAAS SSSA KAKA Nsinnnnns 


“THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 


MORE THAN ONE TEST. 


; NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <ODHV11-M> 


TEST DESCRIPTION 
DESCRIPT 


-EVEN 


<DHV11-M FUNC TST PART 1> 


L$DVTYP:: 


-ASCIZ sDHV11-Ms 


- EVEN 


L$DESC:: 


-ASCIZ /DHV11-M FUNC TST PA 


-EVEN 


SEQ 0040 


EE TTT EE ee an cm a | 
t 


C4 
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/ GLOBAL TEXT SECTION 


| 1675 
a 1676 Fh ab alalalalalaalalalalaialaialatailainiiainainitaininiaitaiaatataiininiaiaisiainiataiaaiaalaitaiateiittei ieee sete eee Te tet tt tt ta ttt 


1677 
1678 VDHA . FMT 


1680 ; SHAK AAKA ALAA AA LAK SK SSAA SSAA SSAA SAAS AKK SAKA AKA Nn 


SEQ 0041 


~ 
oa 
@ 
is8) 


reed ; FORMAT STATEMENTS USED IN PRINT CALLS 


we ee one 


D4 
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GLOBAL TEXT SECTION 


1708 


007020 
007073 


SEQ 0042 


' 
-4 


FE bh abalalalalalaalalalaiallatnaiallainitnianiniininainataiaininatataiainitaitaistattaiitee tere ee eee rere eee te Tt ttt ttt ttt 


; VOHA .MSG 


| SHAAKAAAAA SAA KA ALA KK LS KK SKK A SKK AAMAS AKASAKA 


-NLIST BIN 
.SBTTL GLOBAL MESSAGE AREA 
; *eeeeeeee FORMAT STATEMENTS eeuaauaaue 
MFUNIT:: .ASCIZ /s#N#SA TESTING UNIT :#D48A(D)ssN/ 
EFOS03:: .ASCIZ /#T#SN/ 
EFOSOS:: .ASCIZ /#A SD58A ILLEGAL INTERRUPTS RECEIVED.#N/ 
EF1401:: .ASCIZ /s#N#A ROM VERSION NUMBERS: PROC_1 = sD28A(D) PROC_2 = sD2sA(D)SN/ 
EF1402:: .ASCIZ /#T#A ROM VERSION NUMBER #TsN/ 
EF1601:: .ASCIZ /#A TSA ABORTED sN/ 
EF1602:: .ASCIZ /#A EXPECTED DATA: #068A (0).#N/ 
EF1603:: .ASCIZ /#A ACTUAL DATA: 068A (0).8N/ 
EF1604:: .ASCIZ /#A BAD BIT(S) IN DEVICE sT#A REGISTER FOR LINE #D2sA (D).#N/ 
EF3001:: .ASCIZ /#A EXPECTED OR CORRECT VALUE: #03sN/ 
EF3002:: .ASCIZ /#A ACTUAL OR MEASURED VALUE: #03sN/ 
EF9001:: .ASCIZ /#A UNEXPECTED #T#A FOUND IN RECEIVE CHAR FIFO:sN/ 
EF9002:: .ASCIZ /#A CODE IS ASSOCIATED WITH LINE: #D2sA(D)sN/ 
EF9003:: .ASCIZ /#A CODE IS: #03#A(0)sN/ 
EF9004:: .ASCIZ /#A TSA VALUE: #038A(0)8N/ 
EF9005:: .ASCIZ /#A TSA VALUE: NONESN/ 
EF9006:: .ASCIZ /#A TSA #SD28A(D)SN/ 
EF9010:: .ASCIZ /#A NUMBER OF ERRORS DETECTED ON LINE #D28A(D) IS #D58A(D)SN/ 
EF9016:: .ASCIZ /#A UNEXPECTED #T#A FOR LINE #D28A(D) IN FIFO AFTER RESET:#N/ 
EF9017:: .ASCIZ /#A TSA CWITH ERROR FLAGS) IS #068A(0)sSN/ 
EF9018:: .ASCII /#A sT#A IN SELFTEST CODE FIFO SLOT FOR LINE #D2/ 
-ASCIZ /#A(D) AFTER RESET.#N/ 
EF9019:: .ASCIZ /#A TSA S068A(0)SN/ 
EF9301:: .ASCIZ /#A #T#D28A(D), BMP CODE REPORTED :#038A(0)sN/ 
EF9302:: .ASCIZ /#A OVERFLOW OCCURRED (MORE THAN 31 BMP CODES FOUND IN QUEUE )sN/ 
;**eeeeee% ERROR MESSAGES eeeeueeeeaee 
DROOMG:: .ASCIZ /CSR/ 
DRO2MG:: .ASCIZ /RBUF/ 
DRO4MG:: .ASCIZ /LPR/ 
DRO6MG:: .ASCIZ /STAT/ 
DRiOMG:: .ASCIZ /LNCTRL/ 
DR1i2MG:: .ASCIZ /TBUFFAD1/ 
DRi4MG:: .ASCIZ /TBUFFAD2/ 
DR1I6MG:: .ASCIZ /TBUFFCT/ 
EM0103:: .ASCIZ /DEVICE REGISTER ACCESS ERRORS/ 
EMO201:: .ASCIZ /MASTER RESET (PERFORM SELFTEST) TEST / 
EM0202:: .ASCIZ / MASTER RESET BIT DID NOT CLEAR AFTER BOARD RESET./ 
-ASCIZ / WAITED 5 SECONDS. BIT DEFECTIVE OR FIRMWARE HUNG. / 
EM0203:: .ASCIZ / MASTER RESET BIT CLEAR IMMEDIATELY AFTER BOARD RESET./ 
-ASCIZ / BIT DEFECTIVE OR BOARD FIRMWARE ERROR./ 
EM0204:: .ASCIZ \ MR BIT WENT CLEAR WITHIN 1/2 SECOND OF BOARD RESET.\ 
-ASCIZ / BIT DEFECTIVE OR SELFTEST WAS CINCORRECTLY) SKIPPED. / 
EMO301:: .ASCIZ /MASTER RESET (SKIP SELFTEST) TEST / 
EMO302:: .ASCIZ / MR BIT CLR WITHIN 10 MILISECOND AFTER BOARD RESET./ 
-ASCIZ / BIT DEFECTIVE OR BOARD FIRMWARE ERROR. / 
EMO303:: .ASCIZ \ MR BIT WENT CLEAR 1/5 TO 5 SECONDS AFTER RESET. \ 








E4 


CVDHACO DHV11-M FUNC TST PART 1 MACRO Y0S.02 Monday 01-Apr-85 07:47 Page 38-1 


SEQ 0043 


| GLOBAL MESSAGE AREA 
1765 007155 -ASCIZ / SELFTEST DID NOT GET SKIPPED Ss ar HAVE BEEN SKIPPED)./ 
| 1766 007252 EMO401:: .ASCIZ /RBUF REGISTER RX CHARACTER FIELD TEST 
1767 007321 EM0402 ASCIZ / IMPROPER CODE FOUND IN RX FIFO AFTER ‘our RESET ./ 
1768 007403 ASCIZ / EXPECTED: SELFTEST CODE, os IMPROPER coe. / 
1769 007471 EMOS501 ASCIZ /RBUF REGISTER ERROR FLAGS FIELD TEST 
1770 007537 EMO0502 ASCIZ / RX ERROR FLAG(S) FOUND CLEAR ON SELFTEST CODE. / 
1771 007620 ASCIZ / EXPECTED: ALL ERROR FLAGS SET, ACTUAL: FLAGCS) CLEAR. / 
1772 007713 EMOS25 ASCIZ / RX INTERRUPT(S) RECEIVED WITH RX INTERRUPTS DISABLED. / 
1773 010003 EM0S526 ASCIZ /_ TX _INTERRUPT(S) att teat WITH TX INTERRUPTS DISABLED. / 
1774 010073 EM0601 ASCIZ /CSR RX.DATA.AVAIL BIT TEST / 
1775 010127 EM0602 ASCIZ / RX.DATA.AVAIL BIT FOUND CLEAR AFTER RESET COMPLETION. / 
1776 010217 ASCIZ / EXPECTED BIT TO BE SET FROM SELFTEST CODES IN FIFO./ 
1777 010307 EM0603 ASCIZ / RX.DATA.AVAIL BIT COULD NOT BE CLEARED BY PURGING FIFO./ 
1778 010401 -ASCIZ / 600 CHARS READ FROM FIFO WITHOUT R.D.A BIT CLEARING./ 
1779 010472 EMO701:: .ASC2Z /RBUF RX.DATA.VALID BIT TEST / 
1780 010527 EMO702:: .ASCIZ / RX.DATA.VALID BIT FOUND CLEAR AFTER RESET COMPLETION. / 
1781 010617 -ASCIZ / EXPECTED BIT TO BE SET FROM SELFTEST CODES IN FIFO./ 
1782 010707 EMO703:: .ASCIZ / RX.DATA.VALID BIT COULD NOT BE CLEARED BY PURGING FIFO./ 
1783 011001 ASCIZ / 600 CHARS READ FROM FIFO eee R.D.V BIT CLEARING./ 
1784 011072 EM0801 ASCIZ /RBUF RX.LINE.NUMBER FIELD TEST 
1785 011132 EMO802:: .ASCIZ / LINE NUMBER IS og ¥ A SELFTEST CODE. / 
1786 011205 €M0901:: .ASCIZ 7CHECK FOR BMP_CODES T 
1787 011236 EMO902:: .ASCIZ /UNEXPECTED BMP CODES FOUND. / 
1788 011272 EM1001:: .ASCIZ /DIAGNOSTIC FAIL (SKP SELFTEST) TEST/ 
1789 011336 E€M1002:: .ASCIZ / SKIP SELF-TEST TOOK TOO LONG TO COMPLETE, > 50 MS./ 
1790 011423 €M1003:: .ASCIZ / SKIP SELF-TEST COMPLETED TOO SOON, < 10 MS./ 
1791 011501 €&M1101 ASCIZ /SKIP SELF-TEST TEST/ 
1792 011525 €&M1201 ASCIZ /SELF-TEST TEST/ 
1793 011544 €&M1202 ASCIZ / SELF-TEST 700k TOO LONG TO COMPLETE, > 3 SECONDS./ 
1794 011630 €&M1203 ASCIZ \ SELF-TEST COMPLETED TOO SOON, < 1/2 SECOND.\ 
1795 011706 &M1204 ASCIZ / SELF- bat y DID NOT EXECUTE/ 
1796 011742 €&M1205 ASCIZ / DIAG_FAIL BIT BAD/ 
1797 011766 €&M1301 ASCIZ /FAIL SELF-TEST TEST/ 
1798 012012 M1302 ASCIZ / SELF-TEST ERROR REPORTING BAD/ 
1799 012051 €&M1401 ASCIZ /ROM VERSION_NUMBER TEST/ 
1800 012101 &M1402 ASCIZ / FIFO EMPTY, ONE OR MORE ROM VERSION_NUMBERS MISSING/ 
1801 012167 &M1403 ASCIZ / ROM VERSION_NUMBER FOUND OUT OF SEQUENCE/ 
1802 012242 EM1404 ASCIZ / ONE OR MORE ROM VERSION_NUMBERS MISSING/ 
1803 012314 €&M1405 ASCIZ / a 1/ 
1804 012327 €&M1406 ASCIZ / PROC_2/ 
1805 012342 &M1407 ASCIZ 7NOT FOUND/ 
1806 012354 &M1408 ASCIZ /FOUND/ 
1807 012362 €M1601 ASCIZ /TIMEQUT OCCURRED WAITING FOR MASTER RESET TO CLEAR/ 
1808 012445 &M1604 ASCIZ \DEVICE REGISTER WORD READ/WRITE TEST \ 
1809 012513 EM1701 ASCIZ \DEVICE REGISTER WORD READ/MODIFY/URITE TEST \ 
1810 012570 €M1801 ASCIZ \DEVICE REGISTER BYTE READ/WRITE TEST \ 
1811 012636 €M1901 ASCIZ \DEVICE REGISTER BYTE READ/MODIF Y/uRTE TEST \ 
1812 012713 EM2001 ASCIZ /DEVICE STAT REGISTER ID BIT TEST 
1813 012755 M2002 ASCIZ /ID BIT BAD. EXPECTED: CLEAR, ACTUAL: SET./ 
1814 013030 E&M2101 ASCIZ \NO_ TX_DATA_VALID/NO TX_ACTION TEST\ 
1815 013073 €&M2102 ASCIZ /_ TX_ACTION FOUND AFTER INVALID DATA WORD WRITTEN TO LINE: / 
1816 013167 &M2201 ASCIZ \TX_DATA_VALID/TX_ACTION TEST\ 
1817 013224 EM2202 ASCIZ / NO TX_ACTION FOUND AFTER VALID DATA WORD TX'D ON LINE: 
| 1818 013316 EM2203 ASCIZ /_ INCORRECT LINE NUMBER FOUND WITH TX_ACT AFTER DATA TX’ D ON LINE : / 
| 1819 013423 EM2301 ASCIZ /TX ‘ae CINACTIVE) BIT TEST/ 
1820 013461 EM2302:: .ASCIZ / TX_ENABLE BIT BAD ON LINE: ; 
; 1821 013517 EM2401:: .ASCIZ /TX TENABLE CACTIVE) BIT TEST/ 





| CVDHACO DHV11-M FUNC TST PART 1 MACRO YOS.02 Monday 01-Apr-85 07:47 Page 38-2 
| GLOBAL MESSAGE AREA 


| 1822 013553 EM2601:: .ASCIZ oe INTERRUPT TEST / 
1823 013603 EM2602:: .ASCIZ / NO RX INT GENERATED (DATA_VALID SET, RX INTS a wei / 
1824 013674 EM2603:: .ASCIZ / NO RX INT GENERATED (NO CODES IN FIFO AFTER RESET)./ 
1825 013762 EM2604:: .ASCIZ / NO RX_INT GENERATED (RX_DATA_AVAIL CLR, RX INTS ore ff 
1826 014056 €M2605:: .ASCIZ /_ RX INTERRUPT GENERATED WITH RX_DATA_AVAIL CLEAR 
1827 014141 EM2606:: .ASCIZ /TRANSHIT INTERRUPT TEST ER 
i 


SEQ 0044 


ROR: / 
1828 014200 EM2607:: .ASCIZ / TX_ACTION SET REPEATEDLY AFTER BOARD RESET, NO DATA SENT./ 
1829 014274 €M2608:: .ASCIZ / TX_ACTION STUCK SET AFTER BOARD RESET. / 

1830 014345 £M2609:: .ASCIZ / TX INTERRUPT GENERATED WITH TX_ACTION CLEAR 

1831 014424 €M2610:: .ASCIZ / NO TX INTERRUPT WITH TX_ACTION SET AND TX INTS ENABLED. / 
1832 014516 EM2611:: .ASCIZ / TX_ACTION NOT SET TER CHARS SENT ON ALL LINES./ 

1833 014601 €M3001:: .ASCIZ /INTERRUPT BR LEVEL TEST / 

1834 014632 €M3002:: .ASCIZ / NO RX_DATA_AVAIL FROM SELFTEST CODES IN fs AFTER RESET. / 
1835 014726 €M3003:: .ASCIZ / TX INTERRUPT GENERATED AT WRONG BR try cL 

1836 015002 £M3004:: .ASCIZ / RX INTERRUPT GENERATED AT WRONG BR LEVEL:/ 

1837 015056 EM3005:: .ASCIZ / TX INTERRUPT GIVEN “we OVER SIMUL TANEOUS RX INT./ 
1838 015150 EM3101:: .ASCIZ /DIAGNOSTIC FIELD (BMP) T 

1839 015204 €M3102:: .ASCIZ / DIAGNOSTIC FIELD BAD ON UNE: / 

1840 015245 —M9009:: .ASCIZ /EXPECTED OR CORRECT/ 

1841 015271 EM9010:: .ASCIZ /ACTUAL OR MEASURED ; 

1842 015315 —M9014:: .ASCIZ /SUMMARY REPORTS FOR LINES WITH EXCESSIVE — OF ERRORS: / 
1843 015411 €M9017:: .ASCII / FIFO WILL NOT PURGE (DATA.VALID STUCK SET),/ 

1844 015466 -ASCIZ / REMAINDER” OF TEST SKIPPED./ 

1845 015522 €M9018:: .ASCIZ /NO CODE/ 

1846 015532 €M9019:: .ASCIZ /NON-SELFTEST/ 

1847 015547 EM9020:: .ASCIZ /SELFTEST ERROR CODE/ 

1848 015573 EM9022:: .ASCIZ /DATA CHARACTER/ 

1849 015612 &M9023:: .ASCIZ /MODEM STATUS CODE/ 

1850 015634 EM9024:: .ASCIZ /SELFTEST CODE/ 

1851 015652 &M9026:: .ASCIZ / LPR CONTENTS: / 

1852 015676 EM9301:: .ASCIZ /BMP CODE REPORT/ 

1853 015716 E&M9302:: .ASCIZ /BMP CODE FOUND IN TEST 

1854 015746 &M9303:: .ASCIZ /THE LAST BMP CODE WAS FOUND IN TEST / 

1855 016013 E&M9304:: Ps /UNEXPECTED BMP CODES FOUND DURING THIS PASS/ 


1857 -LIST BIN 


ai 


ee ee 


G4 
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SEQ 004 
| GLOBAL MESSAGE AREA Q 0045 


~ 
@ 
ui 
wo 

icant anibinamaianiiieil 


1860 

ise ; 5 S95 Lh 9b 9h oh oh ob ob oh 9 oh oh ob oh ob ob ol ob ol ol ol ob os oh oh oh ob oh ob gd oh ob oh oh 9b ob 9 9b og ob gg 9 ob 9 9 9 9 ob ob 9 oo gS 9 9 9 9 9 9 9 9 9 9 9 9S 9 9 9 9 9 9 9 9 9 9 9 9, 
1863 ; FVTSKL2.P11 

1865 ; 5 6 9 5 96 9 5 sa gg gu gu gg gu gus gu gu gu suk uh sak ak sak ub ub sab uh uh uk ab ah ak a ah us ah nh ab ah ab ah ak ab ak ah ah ah ak ah ah a ak ak ak ak ah ah ah ah ak ak ak ak ak ah ak ak ah ah ah ab ab oh ok ok ak ok 6 9s oh 9b 9b 96 9h 9S gh os 


;*¢ 
1872 ; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
; USED BY MORE THAN ONE TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


— 
@ 
~ 
> 


i 
1866 

1867 

1868 

1869 .SBTTL GLOBAL ERROR REPORT SECTION 
\ 


! 
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GLOBAL ERROR REPORTING ROUTINE 


1 

1900 016070 
016070 

1901 016070 
016070 


1903 016074 
1904 016100 
1905 016102 
016102 
016106 
016112 
016114 
016116 
1906 016122 
1907 016126 
1908 016130 
016130 
016134 
016140 
016142 
016144 
1909 016150 
016150 
016154 
016160 
016162 
016164 
1910 016170 
016170 
1911 016172 
016172 
016172 


1913 016174 


ee ee wee 


004567 


032705 
001410 


012746 
012746 
010600 
104414 
062706 
032705 
001410 


012746 
012746 
010600 
104414 
062706 
012746 
012746 
010600 
104415 
062706 


004736 


104423 
045 


165702 
000001 


016174 
000001 


000004 
000002 


016252 
000001 


000004 
016331 
000001 


000004 


101 


- ERO101 - 


.SBTTL GLOBAL ERROR REPORTING ROUTINE 


H4 


- ERO101 - 


5 ERA EERE EERE EER ERE EEE E EERE EERE EERE REE R EE EERE EERE EERE EEE EERE EEE EE EEE 
This is an error reporting subroutine which prints additional error 
information if an error is detected in TEST 1 cmagpaver Address 


SeHeKHHRHHRHHRHHRHRHHH HH 


Access Test). 


This subroutine reports the type of access (Read or 


Write or both) which caused a bus time-out trap (004 trap). 
A message indicating that the DHV may be at the wrong Q-bus address 
is also printed. 


INPUTS: 


OUTPUTS: 
CALLING SEQUENCE: 


COMMENTS: 


RS - Error flag word. 
If bit 0 is set, a read error occured. 
If bit 1 is set, a write error occured. 


Messages are printed at the operator console. 


Include the label “ERO101” as the message pointer 
parameter in the DRS error report macro call. 


;* SUBORDINATE ROUTINES USED: None. 
5A RR RR RR AR RR RRR RK RE EERE EEE EEE EERE EE EE EEE EEE EEE EEE 


BGNMSG ERO101 


2s: 


4$: 


102 MSG1:: 


SAVE 


PRINTB 


BIT 
BEQ 
PRINTB 


PRINTX 


PASS 


ENDMSG 


-ASCIZ 


EROIO1:: 
;SAVE THE GPR CONTENTS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 


#BITO,RS ;TEST FOR READ ERROR. 

es ;SKIP READ ERROR MSG IF NO READ ERROR. 

#MSG1 ;PRINT READ ERROR MESSAGE. 
MOV #MSG1,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #4 ,SP 

#BIT1,R5 ;TEST FOR WRITE ERROR. 

4$ ;SKIP WRITE ERROR MSG IF NO WRITE ERROR. 

#MSG2 ;PRINT WRITE ERROR MESSAGE. 
MOV #MSG2, - (SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #4 , SP 

#MSG3 ;SUGGEST THAT DHV MAY BE AT WRONG ADDRESS. 
MOV #MSG3,-(SP) 
MOV #1, ns P) 
MOV SP,RO 
TRAP C$PNTX 
ADD #4, SP 

;RESTORE THE GPR CONTENTS. 
JSR PC, a(SP)-+ ;RETURN TO PREGOS SUBRT. 
L10002: 

TRAP C$MSG 


/%ABUS TIME-OUT TRAP CAUSED BY READ ATTEMPT .#N/ 


SEQ 0046 





—— a 
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GLOBAL ERROR REPORTING ROUTINE - ERO1O1 - 
016177 125 123 040 


016202 124 111 115 
016205 105 055 117 


SEQ 0047 


i 
| 


0 
1914 epee 045 101 09 MSG2:: .ASCIZ /#ABUS TIME-OUT TRAP CAUSED BY WRITE ATTEMPT. sN/ 


0 
1915 oeetes 045 101 oe MSG3:: .ASCIZ /#ADHV MAY BE AT THE WRONG Q-BUS ADDRESS.#N«N/ 


1916 


| 016224 105 104 040 
1917 .EVEN 
| 


- - —-=- = 


rT -_—- 


J4 
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ee ee ee oe 


SEQ 0048 
; GLOBAL ERROR REPORTING ROUTINE - ERO2O1 - 
| 1919 .-SBTTL GLOBAL ERROR REPORTING ROUTINE - ERO2O1 - 
1920 Ett Ti ttt Tre rTP tei titi titi titi iti titi ttt ttt Te TTT TT TTT TTT TTT TT TTT TTT 
1921 i* This_is an error reporting subroutine which prints 2 contiguous 
1922 ;* ASCII error messages. The address of the first message is passed 
1923 ;* as an input parameter and the address of the second is found by 
ies ;* searching for the end of the first message. 
;* 
lost ;* INPUTS: Rl - Address of the first message to print. 
3;* 
434 ;* OUTPUTS: A messages is printed at the operator console. 
3;* 
1930 ;* CALLING SEQUENCE: Load the address of the first message in R1. 
1931 :* Include the label “ERO201"” as the message pointer 
iene 7* parameter in the Diag Super error report macro call. 
;* 
1934 ;* COMMENTS: The message is printed as Basic error information. 
1935 ;* The second message should follow the first one in the program 
et 4 ;* memory. Each message should be defined using .ASCIZ 
;* 
1938 ;* SUBORDINATE ROUTINES USED: None. 
ieee Ett Torii TPP i errr ri irr rit ti itt ttt titi titi ttt ttt ttt ttt ttt TTT TTT TTT TTT TT TTT TTT 
1 
1941 016406 BGNMSG ERO201 
016406 ERO201:: 
1942 016406 SAVE ;SAVE THE GPR CONTENTS. 
eons 016406 004567 165364 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
1944 016412 010102 MOV R1,R2 
1945 016414 105722 2$: TSTB = (R2)+ ;CHECK FOR A ZERO BYTE “END OF MESSAGE). 
2 4 016416 001376 BNE 2s ;LOOP UNTIL NEXT MESSAGc IS FOUND. 
1948 016420 PRINTB #EFO503,R1 ;PRINT THE FIRST MESSAGE. 
016420 010146 MOV R1,-(SP) 
016422 012746 004134 MOV #EFOS03,-(SP) 
016426 012746 000002 MOV #2,-(SP) 
016432 010600 MOV SP,RO 
016434 104414 TRAP C$PNTB 
016436 062706 000006 ADD #6, SP 
1949 016442 PRINTB #EFO503,R2 ;PRINT THE SECOND MESSAGE. 
016442 010246 MOV R2,-(SP) 
016444 012746 004134 MOV #EF 0503, -(SP) 
016450 012746 000002 MOV #2,-(SP) 
016454 010600 MOV SP ,RO 
016456 104414 TRAP C$PNTB 
— 016460 062706 000006 ADD #6, SP 
1951 016464 PASS ;RESTORE THE GPR CONTENTS. 
some 016464 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
1953 016466 ENDMSG 
016466 L10003: 


016466 104423 TRAP C$MSG 


i 
me ee 





K4 
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\ SEQ 0049 
| GLOBAL ERROR REPORTING ROUTINE - EROSO3 - 
1955 -SBTTL GLOBAL ERROR REPORTING ROUTINE - EROSO3 - 
1956 5 ERE R ARERR EERE EERE RARE EERE EERE EERE EEE E EERE A EEE RARER ERAEEEEREEEEEEREEREEEEEE 
1957 ;* This is an error reporting subroutine which prints an additional error 
ieee ;* message whose address is passed as an input parameter. 
;* 
Baty ;* INPUTS: Rl - Address of the message to print. 
;* 
Ba | ;* OUTPUTS: A messages is printed at the operator console. 
;* 
1964 ;* CALLING SEQUENCE: Load the address of the message in R1. 
1965 ;* Include the label "EROS03” as the —— pointer 
i909 i* parameter in the Diag Super error report macro call. 
;* 
dor ;* COMMENTS: The message is printed as Basic error information. 
;* 
1970 ;* SUBORDINATE ROUTINES USED: None. 
pda} Poo CEE Tt tet r rrr Pret ti Pitt titi tii ttt ttt tt ttt TT TTT TTT TTT TTT TTT TTT TTT TT TT 
1 
1973 016470 BGNMSG EROS0O3 
1976 016470 EROSO3:: 
1975 016470 PRINTB #EFOS503,R1 ;PRINT THE MESSAGE. 
016470 010146 MOV R1,-(SP) 
016472 012746 004134 MOV #EF 0503, -( SP) 
016476 012746 000002 MOV #2,-(SP) 
016502 010600 MOV SP ,RO 
016504 104414 TRAP C$PNTB 
7 016506 062706 000006 ADD #6,SP 
1977 016512 ENDMSG 
016512 L10004: 


016512 104423 TRAP C$MSG 
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0 
2002 


2003 


2004 
0 


016514 
016514 


0 
016514 
0 


016560 


010146 
012746 
012746 
010600 
104414 
062706 


010246 


004134 
000002 


000006 


004141 
000002 


000006 


SEQ 0050 
- EROSO4 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - EROSO4 - 
EPP PPT PPP PPP TTT i ti tit tit tet iti t i tit itt ite te TTT TTT TTT TT TTT TTT TTT TTT. 
:* This is an error reporting subroutine which prints additional error 
:* messages when illegal interrupts are received. 
;* 
3* INPUTS: Rl - Address of the message to print. 
;* R2 - Number of illegal interrupts received. 
;* 
;* OUTPUTS: Messagess sre printed at the operator console. 
;* 
;* CALLING SEQUENCE: Load the address of the message in R1. 
;* Load the number of illegal ints in R2. 
;* Include the label "EROS04" as the mess pointer 
;* paremeter in the Diag Super error report macro call. 
;* 
3* COMMENTS: 
;* 


;* SUBORDINATE ROUTINES USED: None. 
RRR EE EE ERE ERE EERE EERE EERE EERE ERE R EERE EERE EEE EERE SEER SERRE EES E REE EEE 


BGNMSG ERO504 


EROSO4: : 
PRINTB #EFOS5S03,R1 ;PRINT THE FIRST LINE OF THE MESSAGE. 
MOV R1,-(SP) 
MOV #EFOSO3, -( SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #6 ,SP 
PRINTX #EFO505,R2 ;PRINT THE NUMBER OF INTS RECEIVED. 
MOV .-(SP) 
MOV #EF 0505, -( SP) 
MOV SP, 
TRAP C$PNTX 
ADD #6, SP 
ENDMSG 
L10005: 
TRAP C$MSG 


M4 
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| GLOBAL ERROR REPORTING ROUTINE 


8 
2029 016562 
016562 


2031 016562 

016562 010146 

016564 012746 004134 
000002 


016600 062706 000006 


2037 016604 012705 000143 
2038 016610 012701 012314 
44 016614 012702 012342 


2042 016624 012702 012354 
2043 016630 004767 000026 


2045 016634 012701 012327 
2046 016640 012702 012342 


2049 016650 012702 012354 
2050 016654 004767 000002 
oot 016660 000413 


2053 016662 
016662 010246 
016664 010146 


- ER1401 - 
.-SBTTL GLOBAL ERROR REPORTING ROUTINE 


- ER1401 - 


SEQ 0051 


oni emaaaamaimaaal 


§EEEEEEEEEEEEEERESESESEER ESE SESE SESE EERE EE EES ESSE SESE ESSE ESSERE EEE EEE E SEES 


oe oe oe © 
eee e 


ROM version numbers for PROC_1 
error message to the operator. 


INPUTS: 


SeRREREE EEE HH HH 


OUTPUTS: 
operators console. 


CALLING SEQUENCE : 


COMMENTS : 
;* SUBORDINATE ROUTINES USED: None. 


This is en error reporting subroutine which prints additional error 
information if an error is detected in the Rom version test. 
This subroutine snanee the = arameters which contain the 


ROC_2 and reports the appropriate 


Basic and extended error messages are reported at the 


Ri - Contains the address of the first message to be reported. 
oa - Contains the ROM version number of PROC_1. 
_ Contains the ROM version number of PROC_2. 


Include the label “ER1401" as the message pointer 
parameter in the DRS error report macro call. 


5 EREKERAEEREREEERERA EERE ERASER EKER ERE EEE ERE EKER EEAREREEESRTREEEREREEE EES 


BGNMSG ER1401 


PRINTB #€FOS5SO3,R1 


+ 
Determine which Rom version number(s) 


MOV #99. ,R5 
MOV #EM1405,R1 
MOV #€M1407,R2 


CMPB = R3,R5 
BEQ 
MOV #EM1408 ,R2 
2s: JSR PC,50$ 


MOV #€M1406 ,R1 
MOV #€M1407,R2 
CMPB -? 


MOV #EM1408 ,R2 
4$: JSR PC,50$ 
BR 60$ 


50$: PRINTX #€F1402,R1,R2 


ER1401:: 


are missing. 


;GET INVALID ROM NUMBER. 
; SELECT PROC_1 MESSAGE. 
;SELECT THE “NOT FOUND” MESSAGE. 


-(SP) 
EF 0503, -(SP) 
#2,-(SP) 

SP ,RO 

CSPNTB 

#6 ,SP 


;CHECK PROC_1 ROM VERSION NUMBER. 


;G0 REPORT PROC_1 
;SELECT “FOUND” “MESSAGE. 
3GO REPORT MESSAGE. 


s SELECT PROC_2 MESSAGE. 


CODE NOT FOUND. 


NOT # 
; CHECK PROC_2 ROM VERSION NUMBER. 
;G0 REPORT PROC itis FOUND. 


;SELECT “FOUND” 
2 tae THE MESSAGE. 
; 


sREPORT THE MESSAGE. 
MOV 
MOV 


| 
| 
s;REPORT THE ERROR MESSAGE PASSED IN. 
MOV Ri, 
| 
| 
i 


ee 





i 
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016666 012746 004316 
016672 Sikees 000003 


016676 
016700 104415 
016702 062706 000010 
2054 016706 000207 RTS PC 
2055 016710 60$: ENDMSG 
016710 


016710 104423 


;RETURN. 





L10006: 


SEQ 0052 
9EF 1402, -(SP) 
$3,-(SP) 

SP; RO 

C$PNTX 

#10,SP 


C$MSG 











a 


| BS 
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SEQ 0053 
GLOBAL ERROR REPORTING ROUTINE - ER1601 - 

2057 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER1601 - 

2058 FRRREREREEEE REESE EREE ARSE REE EREEEEEEEEEEEEEEEEEESEREEOREREREEEE SEES EEEEEEEES 

2059 ;* This an error reporting subroutine which prints additional error 

2060 ;* information if an error is detected in one of th» ‘evice register 

2061 ;* access tests. 

2062 ;* This subroutine reports the actual and expecteo “om the device 

eee ;* register(s) which is(are) in faulty. 

;* 

2065 ;* INPUTS: Rl - Actual data (unused bits set to 0). 

2066 7* R2 - Expected data (unused bits set to 0). 

2067 3* R3 - Offset (in bytes) to the register being tested. 

2068 :* RS - Line number of register being tested. 

core ;* RMATBB - Label at base of register message address table. 

3% 
or ;* OUTPUTS: Messages are printed at the operators console. 
7* 

2073 ;* CALLING SEQUENCE: Include the lable "ER1601" as the message pointer 

pod ;* peremeter in the DRS error report macro call. 
3* 

2076 ;* COMMENTS: 

2077 3* 

2078 ;* SUBORDINATE ROUTINES CALLED: NONE 

2079 FESS EREEEREEEREEED FREESE EERE EE EE EEEEEEEEEEEEEEEREEEEE 

2080 016712 BGNMSG ER1601 

oon 016712 ER1601:: 

oof 016712 016304 002304 MOV RMATBB(R3),R4  ;FETCH ADDRESS OF REGISTER NAME MESSAGE. 

2084 016716 PRINTB #€F1604,R4,R5 sREPORT BASIC MESSAGE (REG NAME AND LINE #). 
016716 010546 MOV RS,-(SP) 
016720 010446 MOV R4,-(SP) 
016722 012746 004503 MOV #EF 1604, -( SP) 
016726 012746 000003 MOV #3,-(SP) 
016732 010600 MOV SP ,RO 
016734 104414 TRAP C$PNTB 
016736 062706 000010 ADD #10,SP 

2085 016742 PRINTX #EF1602,R2 ;PRINT THE EXPECTED DATA. 

016742 010246 MOV R2,-(SP) 
016744 012746 004377 MOV #E€F 1602, -( SP) 
016750 012746 000002 MOV #2,-(SP) 
016754 010600 MOV SP ,RO 

016756 104415 ia TRAP C$PNTX 
016760 062706 000006 ADD #6 ,SP 

2086 016764 PRINTX #EF1603,R1 ;PRINT THE ACTUAL DATA. 

016764 010146 MOV R1,-(SP) 
016766 012746 004441 MOV #EF 1603, -(SP) 
016772 012746 000002 MOV #2,-(SP) 
016776 010600 MOV SP ,RO 

017000 104415 TRAP CS$PNTX 
017002 062706 000006 ADD #6, SP 

2087 017006 ENDMSG 
017006 L10007: 


017006 104423 TRAP C$MSG 


— ee ee oe a a ee 





C5 
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SEQ 0054 
, GLOBAL ERROR REPORTING ROUTINE - ER1603 - 
' 
2089 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER1603 - 
2090 EDD e tL SIT Ti Ti TPT TP PPE PP TTT Tritt iti iti tit ttt ttt t eT Tit TTT TTT TTT TTT TTT TTT TTT 
2091 3% This error reporting routine is used to print out a basic error 
2092 :* message, along with a message informing the operator which test is 
34-44 ;* about to be aborted. 
;* 
| 2095 ;* INPUTS: Rl - Contains the address of the message to be printed. 
2096 3* ERRMSG - Contains the address of the eoooens that indicates 
| pad ;* the test that is being performed, eg DMA, BREAK etc. 
;* 
2099 ;* OUTPUTS: Messages are pes at the operators console. 
te 3* “testname TEST ABORTED” 
;* 
2102 ;* CALLING SEQUENCE: Include the lable "ER1603" as the message pointer 
srt ;* parameter in the DRS error report macro call. 
7* 
2105 ;* COMMENTS: 
2106 :* 
2107 3* 
2108 ;* SUBORDINATE ROUTINES CALLED: None. 
2109 FERRER REE EEE REE EERE EEE EEE EEE EEE AREER A EERE RARER EEE EEE EERE EEE EEEEEEEEEEE 
2110 017010 BGNMSG ER1603 
017010 ER1603:: 
2111 017010 SAVE ;SAVE THE CONTENTS OF THE GPRS. 
se 017010 004567 164762 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
2113 017014 PRINTB #EFO0503,R1 ;PRINT BASIC MESSAGE ON OPERATORS CONSOLE. 
017014 010146 MOV R1,-(SP 
017016 012746 004134 MOV #EF 0503, -(SP) 
017022 012746 000002 MOV #2,-(S 
017026 010600 MOV SP, 
017030 104414 TRAP CS$PNTB 
— 017032 062706 000006 ADD #6,SP 
1 
2115 017036 016702 164730 MOV ERRMSG ,R2 ;GET THE “TEST MESSAGE”. 
2116 017042 PRINTB #EF1601,R2 ;PRINT “TEST ABORTED” MESSAGE. 
017042 010246 MOV R2,-(SP 
017044 012746 004353 MOV #EF 1601, -(SP) 
017050 012746 000062 MOV #2,-( 
017054 010600 MOV SP ,RO 
017056 104414 TRAP C$PNTB 
east 017060 062706 000006 ADD #6, SP 
2118 017064 PASS sRESTORE THE CONTENTS OF THE GPRS. 
017064 004736 JSR PC,a(SP)- ;RETURN TO PREGOS SUBRT. 
2119 017066 ENDMSG 
017066 L10010: 
017066 104423 TRAP C$MSG 


em ee 


DS 
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0 
2144 


2145 


2146 
2147 


017070 
017070 


017070 


017150 
017152 


017156 
017156 
017156 


010146 
012746 
012746 
010600 
104414 
062706 


010546 
012746 
012746 
010600 
104415 
062706 


010446 
012746 
012746 
010600 
104415 
062706 


104423 


004134 
000002 


000006 


004600 
000002 


000006 


004647 
000002 


000006 


me - - 


SEQ 0055 


- ER3001 - 

.SBTTL GLOBAL ERROR REPORTING ROUTINE - ER3001 - 

Iti iiitittititiitiiititiitititititititititttiiiitititiiitiitittt ttt ttt ttt ttt tt 
;* This is an error ) ty subroutine which is intended for use in the 
;* Interrupt BR Level Test. It reports additional information when an 

;* interrupt has occurred at the wrong BR level. 

3;* 

;* INPUTS: Ri - Address of message to print first. 

;* R4 - BR level at which the int request occurred. 

;* RS - Expected or correct BR level for the DUT. 

;* 

;* OUTPUTS: A messages is printed at the operator console. 

;* 

3* CALLING SEQUENCE: Include the label "ER3001" as the message pointer 

;* parameter in the Diag Super error report macro call. 
;* 


;* COMMENTS: 


The message is printed as Basic and Extended error information. 


o 
;* SUBORDINATE ROUTINES USED: None. 
5 RRR REE REE EREEE EERE EERE EERE EERE EEE EEE EERE REARS EREE EERE EEE EEE 


BGNMSG 


PRINTB 


PRINTX 


PRINTX 


ENDMSG 


ER3001 
ER3001:: 


#EFOS03,R1 ;PRINT THE FIRST LINE OF THE —— 


#EF3001,R5 sREPORT EXPECTED BR LEVEL. 


#EF 3002 ,R4 sREPORT ACTUAL BR LEVEL. 


L10011: 
TRAP 


R1i,-(SP) 

#EF 0503, -( SP) 
#2,-(SP) 

SP ,RO 
C$PNTB 
#6, SP 


RS,-(SP) 
#EF3001,-(SP) 
#2,-(SP) 

SP ,RO 

C$PNTX 

#6, SP 


R4,-(SP) 
rho ate 
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, GLOBAL ERROR REPORTING ROUTINE 
| 


tw 
i 
vi 
°o 


2170 017160 
017160 
i 


2172 017160 


2183 017256 


2185 017260 
017260 
017260 


012746 
012746 
012746 
010600 
104414 
062706 
005002 
016703 
005004 
000241 
006003 
103013 


016446 


001356 


104423 


015315 
004134 
000002 
000006 


163250 


002464 


005225 
000003 


000010 


E5 
aa BS SEQ 0056 


.SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9004 - 
iti titittttitittti titi itittititttittttitittttititititttttittt titi ttt ttt tt tt tt 
:* This is an error reporting subroutine which reports error summaries 


;* for lines which have exceeded the specified maximum number of 

7* individual reception errors. 

3;* 

;* INPUTS: Ri - Address of message to print first. 

:* ERCNTB - Label at base of line error counters table. 

;* ERSMRF - "Report error summary for line” flags. 

;* 

;* OUTPUTS: A message is printed at the operator console. 

;* 

;* CALLING SEQUENCE: Include the label "ER9004" as the message pointer 

i* parameter in the Diag Super error report macro call. 
;* 

;* COMMENTS: The message is printed as Basic and Extended error information. 
;* The contents of GPR's R2, R3, R4, and R5 are destroyed. 

3;* 


;* SUBORDINATE ROUTINES USED: None. 
5 RR RE EERE EE ER EERE EEE EERE EERE ERE EERE EERE EEE EEE ERE EEE EE 


BGNMSG ER9004 
ER9004: : 


PRINTB #EFOS503,#EM9014 ;REPORT THE SECONDARY ERROR MESSAGE. 
MOV Svante’ tape 


MOV #EF 0503, -( 
SP ,RO 


MOV P 
TRAP C$PNTB 
ADD #6, SP 

CLR R2 ;CLEAR THE LINE COUNTER. 

MOV ERSMRF ,R3 ;GET THE ERROR SUMMARY FLAGS. 

CLR R4 ;CLEAR “LINE COUNTER TIMES 2” OFFSET. 

2$: CLC sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 
ROR R3 ;SHIFT ANOTHER ERROR SUMMARY FLAG INTO CARRY. 


BCC 4$ ;SKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 
PRINTX #E€F9010,R2,ERCNTBCR4 ) 
MOV ert «alta 


MOV R »-(S 
MOV #EF9010,-(SP) 
MOV #3,-(SP 
MOV SP,RO 
TRAP C$PNTX 
ADD #10,SP 
4$; MOV (R4)+,R5 ; INCREMENT THE LINE OFFSET BY 2. 
INC Re s;INCREMT THE LINE COUNTER. 
TST R3 ;CHECK THE ERROR SUMMARY FLAGS. 
BNE es ;IF MORE FLAGS SET, LOOP TO DO OTHER LINES. 
ENDMSG 


L10012: 
TRAP C$MSG 


a CN > eee ee 


' 
-4 





F5 
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SEQ 0057 
—— ERROR REPORTING ROUTINE - ER9007 - 
2187 -SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9007 - 
2188 SERRE ERE REE EERE REE EEE E AREER ERR ERE A EE EERE REAR EREREEEEEEEREEEEREEEE EEE ES 
2189 :* This is an error tage subroutine which is used to report that 
2190 ;* pone ine other than a selftest code was found in a selftest code 
2191 ;* FIFO slot during the removal of the selftest codes from the FIFO. 
stot ;* This routine is used by the RSTRPT routine. 
;* 
2194 ;* INPUTS: Rl - Address of error message qualifier string. 
2195 ;* R2 - Incorrect code as read from the selftest code FIFO slot. 
sis i* R3 - Line number associated with the selftest FIFO slot. 
;* 
si35 :* OUTPUTS: A message is printed at the operator console. 
;* 
2200 3* CALLING SEQUENCE: Include the label "ER9007" as the message pointer 
— ;* parameter in the Diag Super error report macro call. 
;* 
oaos ;* COMMENTS: The message is printed as Basic and Extended error information. 
;* 
2205 ;* SUBORDINATE ROUTINES USED: None. 
€206 PEPE P iter ett PPP PPP TTT Ett tt itt ttt ttt TTT TT TTITTTT TTT TTT TT TTTTTTTTTTTTTTTTT et 
220 
2208 017262 BGNMSG ER9007 
a. 017262 ER9007:: 
2210 017262 042703 177760 BIC #177760 ,R3 ;REMOVE ALL BUT LINE # BITS FROM LINE # WORD. 
2211 017266 PRINTB #EF9018,R1,R3 ;REPORT SECONDARY ERROR MESSAGE. 
017266 010346 MOV R3,-(SP) 
017270 010146 MOV R1,-(SP) 
017272 012746 005475 MOV #EF9018,-(SP) 
017276 012746 000003 MOV #3,-(SP) 
017302 010600 MOV SP ,RO 
017304 104414 TRAP C$PNTB 
017306 062706 000010 ADD #10,SP 
2212 017312 PRINTX #EF9017,R1,R2  ;REPORT THE ACTUAL INCORRECT CODE. 
017312 010246 MOV R2,-(SP) 
017314 010146 MOV R1,-(SP) 
017316 012746 005421 MOV #EF9017,-(CSP) 
017322 012746 000003 MOV #3,-(SP) 
017326 010600 MOV SP ,RO 
017330 104415 TRAP C$PNTX 
— 017332 062706 000010 ADD #10,SP 
2214 017336 ENDMSG 
017336 L10013: 


017336 104423 TRAP C$MSG 


ee — —- 


SEQ 0058 
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— ERROR REPORTING ROUTINE - ER9008 - 
2216 .SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9008 - 
2217 itiiiiiittt itt titi ii itit ttt ti titi titi ti ttt ttt ttt titi ttt ttt ttt TTT TTT TTT TTT TTT! 
2218 ;* This is an error reporting subroutine which is used to report that 
2219 ;* an unexpected code or character has been found in the DUT receive 
2220 ;* character FIFO. 
2221 ;* 
2222 ;* INPUTS: Ri - Address of partial error message string. 
ty :* R2 - Incorrect code as read from the selftest code FIFO slot. 
;* 
3H ;* OUTPUTS: ’ A message is printed at the operator console. 
;* 
2227 ;* CALLING SEQUENCE: Include the label "ER9008” as the message pointer 
4 ;* parameter in the Diag Super error report macro cell. 
;* 
oore ;* COMMENTS: The message is printed as Basic and Extended error information. 
;* 
2232 ;* SUBORDINATE ROUTINES USED: None. 
o233 Piiiiititittttti ttt ttt ttt ttt titi ttt ttt ttt TT TT TTT TTT TTT TTT TTT TLL tt 
2235 017340 BGNMSG ER9008 
017340 ER9008: : 
2236 
2237 i+ 
2238 ; Extract the line number from the incorrect code or character which was read 
3 H44 ; from the selftest code FIFO slot. 
2241 017340 010203 MOV R2,R3 
2242 017342 000303 SWAB R3 
2243 017344 042703 177760 BIC #177760,R3 ;CALCULATE LINE NUMBER OF CODE. 
2244 017350 PRINTB #EF9016,R1,23 ;REPORT TYPE OF INCORRECT CODE FOUND. 
017350 010346 MOV R3,-(SP) 
017352 010146 MOV R1,-(SP) 
017354 012746 005324 MOV #EF9016,-(SP) 
017360 012746 000003 MOV #3,-(SP) 
017364 010600 MOV SP,RO 
017366 104414 TRAP C$PNTB 
017370 062706 000010 A #10,SP 
2245 017374 PRINTX #EF9017,R1,R2 ;REPORT THE ACTUAL INCORRECT CODE. 
017374 010246 M R2,-(SP) 
017376 010146 MOV R1,-(SP) 
017400 012746 005421 MOV #EF9017,-(SP) 
017404 012746 000003 MOV #3,-(SP) 
017410 010600 MOV SP,RO 
017412 104415 TRAP CS$PNTX 
anes 017414 062706 000010 ADD #10,SP 
2247 017420 ENDMSG 
017420 L10014: 
017420 104423 TRAP C$MSG 


—— ie 


ee 


| 
| 


; GLOBAL ERROR REPORTING ROUTINE 


2268 017422 
017422 


2270 017422 
017422 
017424 
017426 
017432 
017436 
017440 

017442 
2271 


2272 017446 
017446 
017446 


| 
2254 


ee ee ee 


010146 
010246 
012746 
012746 
010600 
104414 
062706 


104423 


005201 
000003 


000010 


H5 
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SEQ 0059 
- ER9101 - 


-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9101 - 

5 RRR EERE EERE RARE EERE EERE EERE REE ERE EEE R ARE REREEREEEEEEEER EEE REEE EER 
;* This is @ general error reporting subroutine which reports a message 
which takes a single, 2 digit decimal argument after the end of an 
ASCII message. 


;* INPUTS: R1 - Value to be printed after msq as 2 decimal digits. 
: R2 - Address of message to print first. 


se ee oe ee © 


ALLING SEQUENCE: Include the label "ER9101" as the message pointer 


:* OUTPUTS: A messages is printed at the operator console. 
;* C 
: parameter in the Diag Super error report macro call. 


HeHHHRHHHH HH HF 


;* COMMENTS: The message is printed as Basic error information. 
;* 


, 
;* SUBORDINATE ROUTINES USED: None. 
eee ehh ean ht ete ttt ttt TP tT i iT Titi iii tt iti titi ttt ttt tte tte eee et 


BGNMSG ER9101 


ER9101:: 
PRINTB #EF9006,R2,R1 ;REPORT THE STRING FOLLOWED BY THE NUMBER. 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV #EF 9006, -( SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #10,SP 
ENDMSG 
L10015: 


TRAP C$MSG 


ee eee ee ee 


a ee ee ee - s 


I5 
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017560 104415 TRAP C$PNTX 


SEQ 0060s! 
' GLOBAL ERROR REPORTING ROUTINE - ER9301 - | 
2274 .SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9301 - 
2275 Pitt itiittitititititititittt titi tt ttt tittitittt titi ttt titi iti t titi t tt ttt tt tte Tt 
2276 :* This is an error repers ine subroutine which prints any BMP codes 
2277 :* that are found in the BMP code queue, together with the the number of 
os79 ;* the test that was executing at the time the BMP code was logged. ; 
;* ' 
2280 ;* INPUTS: Rl - The address of the first message to be reported. | 
34! ;* R2 - The address of the next empty cell in the queue. | 
;* 
2283 ;* OUTPUTS: The test number followed by the BMP code are printed at the | 
oe ;* operator console. 
;* 
2286 ;* CALLING SEQUENCE: Include the label "ER9301" as the message pointer 
44 3* parameter in the Diag Super error report macro call. 
3;* 
3444 ;* COMMENTS: The message is printed as Basic error information. 
;* 
2291 ;* SUBORDINATE ROUTINES USED: None. 
eens Iti it iitiiitititititiit¢ttiiigitiitiiititiitititittttttttiiittittit tt itt ttt tt 
2 
2294 017450 BGNMSG ER9301 
017450 ER9301:: 
2295 017450 SAVE ;SAVE THE GPRS ON THE STACK 
a 017450 004567 164322 JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
2297 017454 PRINTB #EFO503,R1 ;REPORT UNEXPECTED BMP CODES FCUND. 
017454 010146 MOV R1,-(SP) 
017456 012746 004134 MOV #EFO503,-(SP) 
017462 012746 000002 MOV #2,-(SP ) 
017466 010600 MOV SP ,RO 
017470 104414 TRAP C$PNTB 
017472 062706 000006 ADD #6, SP 
2298 017476 012703 002526 MOV #BMPCQB ,R3 ;GET THE START ADDRESS OF THE BMP CODE QUEUE. 
2299 017502 012705 015716 MOV #EM9302 ,R5 ;GET THE MESSAGE TO BE REPORTED. 
2300 017506 012301 2s: MOV (R3)+,R1 ;GET THE NUMBER OF THE TEST THAT WAS EXECUTING. 
2301 017510 012304 MOV (R3)+,R4 ;GET BMP CODE THAT WAS REPORTED OFF THE QUEUE. 
2302 017512 004767 000056 JSR PC,50$ ;GO REPORT THE BMP CODE. 
2303 017516 020302 CMP R3,R2 ;CHECK IF ALL CODES HAVE BEEN REPORTED. 
coos 017520 103772 BLO 2s ;IF IT IS NOT THE LAST BMP CODE THEN LOOP. 
2306 ; Check if overflow has occurred. 
2307 ; The conditions for overflow are: the pointer contains the address of the 
2308 ; last cell in the queue, and a bmp code has already been written into that 
44 i cell. 
2311 017522 020227 002722 CMP R2, #BMPCQE -4 ;CHECK IF THE POINTER IS AT THE LAST LOCATION. 
2312 017526 001036 BNE 60$ ;EXIT IF NOT AT THE LAST LOCATION. 
2313 017530 005762 000002 TST 2(R2) ;CHECK FOR A BMP CODE IN THE LAST CELL 
2314 017534 001433 BEQ 60$ ;EXIT IF NO OVERFLOW HAS OCCURED, CELL EMPTY. 
2315 017536 012301 MOV (R3)+,R1 ;GET THE TEST NUMBER OFF THE QUEUE. 
2316 017540 011304 MOV (R3),R4 ;GET THE BMP CODE OFF THE QUEUE. 
2317 017542 012705 015746 MOV #EM9303, RS ;SELECT THE MESSAGE TO BE REPORTED. 
2318 017546 PRINTX #E&F9302 ;REPORT OVERFLOW CONDITION. | 
017546 012746 005704 MOV #EF 9302, -(SP) 
017552 012746 000001 MOV #1,-(SP) 
017556 010600 MOV SP .RO | 
| 
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017562 
2319 017566 
2320 017572 


2322 pe Ly 


0 
2323 017622 
2324 017624 
017624 
2325 
2326 017626 
017626 
017626 


000207 
004736 


104423 


000004 
000002 


005626 
000004 


000012 


SEQ 0061 


- ER9301 - 


505: 


60$: 


ADD #4, SP 
JSR PC,50$ sREPORT THE LAST BMP CODE PLACED ON THE QUEUE. 
BR 60$ ;EXIT. 


PRINTX #EF9301,R5,R1,R4 ;PRINT THE MESSAGE. 
MOV R4,-(SP) . 
MOV R1,-(SP) 
RS,-(SP) 
MOV #EF 9301, -(SP) 
MOV om. 


SP, 
TRAP C$PNTX 
ADD #12,SP 


RTS PC ;RETURN. 
PASS ;RESTORE THE GPR CONTENTS. 
JSR PC,a(SP)+ sRETURN TO PREGOS SUBRT. 
ENDMSG 
L10016: 
TRAP C$MSG 


—4 


NT ne Tn en ee nn Enress eel —- 


K5 
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| SEQ 0062 
| GLOBAL SUBROUTINES SECTION 

2328 .SBTTL GLOBAL SUBROUTINES SECTION 

2330 | KSLELLLLLA ALLA LLSLK LALA LK ALL LALLA SAKA LSA SALAS SKA SSNs 

2352 ; FVTSKL3.P11 

2334 | KKLKLKLKLALAL ALAA SALA K LALA LALA LKLA SKK SKK SKA K SALSA NNN 

2337 

2338 _ 

2339 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

2340 ; THAT ARE USED IN MORE THAN ONE TEST. 


2341 fas 


——<—— « ee 


L5 
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! SEQ 0063 
| GLOBAL SUBROUTINE - ALTFLD - 
2343 .SBTTL GLOBAL SUBROUTINE - ALTFLD - 
2344 eM ti iiitttitititiititititiiititiiiititititii¢titiiiitititititittt tt ttt tt Tt tt 
2345 ;* - Alter Device Register Fields Routine - 
2346 7% This subroutine alters the specified field of the specified device 
2347 ;* register for the specified lines. This routine can be used to set 
2348 ;* or clear bits al eoxeesee fields of selected registers. 
2349 ;* Use examples: Set RX.BAUD.RATE fields on lines 3 and 6. 
Set ;* Clear TX.DMA bits on all lines. 
;* 
2352 ;* INPUTS: Rl - Address of the registers to alter. 
2353 ;* R2 - Bit fields set to desired states. 
2354 :* R3 - Bit map of lines for which to alter register. 
2355 ;* R4 - Mask of bits to alter (1 indicates change bit). 
2356 ;* CSRA - Contains the address of the device CSR. 
oar. ;* IESTAT - Saved states of the interrupt enable bits. 
;* 
2359 ;* OUTPUTS: DEVICE REGISTERS - Specified —— fields altered. 
cere ;* CSR IND.ADR.REG field - Destroyed. 
;* 
core ;* CALLING SEQUENCE: JSR PC,ALTFLD 
;* 
2364 ;* COMMENTS: This routine reads the specified registers for all lines 
2365 ;* with numbers lower than the oie specified line. 
case ;* This routine does not read the CSR. 
;* 
2368 ;* SUBROUTINES CALLED: None. 
2369 Petit ititiiiiiitititiititititiitiiitiiiiiiiitttt ttt ttt ttt ttt titi titi titi ttt t 
2370 
2371 017630 ALTFLO:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
este 017630 004567 164142 JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
2373 3+ 
2374 ; Set up to loop for each line: 
2375 ; Prepare the word to be ORed into the register contents 
ha ; Set up the word to write into the IND.ADR.REG field oF the CSR. 
2 $= 
2378 017634 010400 MOV R4,RO ;CALCULATE THE NEW CONTENTS OF THE 
2379 017636 005100 COM RO ; REGISTER FIELDS WHICH ARE TO BE 
2380 017640 040002 BIC RO,R2 ; ALTERRED BY THIS ROUTINE. 
343 017642 016705 162462 MOV IESTAT,RS ;SET UP TO WRITE IND.ADR.REG FIELD TO 0. 
2383 i ; Loop. once for each line, altering the specified field in the specified 
2384 ister if the line has been selected for altering. 
2385 ; ia he loop if no more lines to alter, or if we have altered the max 
cone ; allowable number of lines (as specified by NUMLNS). 
2388 017646 000241 CLC ;PREPARE FOR ROTATE, “TST RS" DOES THIS BELOW. 
2389 017650 006003 2s: ROR R3 ;GET THE LINE SELECT BIT FOR THIS LINE. 
2390 017652 103006 BCC 4$ ;SKIP SETUP IF LINE IS NOT SELECTED. 
2391 017654 010577 162364 MOV R5,aCSRA ;SET DUT CSR IND.ADR.REG rr ar THIS LINE. 
2392 017660 011100 MOV (R1),RO ;GET THE PRESENT CONTENTS OF THE REG TO ALTER. 
2393 017662 040460 BIC R4,RO ;CLEAR THE BIT FIELDS WE ARE 10 ALTER. 
2394 017664 050200 BIS R2,RO ;OR IN THE NEW STATES OF THE FIELDS. 
2395 017666 010011 MOV RO,(R1) sWRITE THE NEW REGISTER Sade TO THE REG. 
2396 017670 005205 4$: INC RS ;SET LINE NUMBER TO THE NEXT LINE. 
2397 017672 005703 TST R3 ; CHECK FOR UNHANDLED LINES, CLEAR CARRY FLAG. 


2398 017674 001365 BNE 2$ ;LOOP IF SELECTED LINE(S) IS NOT HANDLED. 





—— tina 


OO TTT 
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| 
GLOBAL SUBROUTINE - ALTFLD - SEQ 0064 


2399 

2400 017676 60$: PASS sRESTORE GPRS. 
017676 004736 JSR PC, @(SP)+ RETURN TO PREGOS SUBRT. 

2401 017700 000207 RTS PC sRETURN TO CALLING ROUTNE. 


re 


LLL SLL LLL LL CL ttt tt tt 











| 
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| GLOBAL SUBROUTINE - CALMSL - 

2403 -SBTTL GLOBAL SUBROUTINE - CALMSL - 
2404 $ Oo SERRE ESEEEEEEEEEEEEEESEEEEEEERERERESESEREEEERERRERE SEER EEEEERREREREEES 
2405 ;* - Calibrate Milli Second Loop count subroutine - 
2406 ;* This subroutine calibrates the timing loop which is used in the MSLOOP 
2407 ;* routine. This subroutine calculates ea value for the MSLCNT variable 
2408 ;* which is the number of software loops which takes 1 ms to execute in 
2409 ;* the MSLOOP routine. This routine calibrates the count by using the 
2410 ;* Line Time Clock (LTC), so if no LTC is availeble the default value for 
2411 ;* the delay count must be “aed. 
2412 :* 
2413 ;* 
2414 ;* INPUTS: MSLCNT - Default 1 ms delay loop count value, or 
2415 i* value from previous calibration. 
2416 ;* MSTICK - Number of MS per LTC clock tick. 
2417 ;* TIMER1 - Timer counter changed by LTC interrupt service rtn. 
ssie ;* CLKHRZ - Number of LTC clicks per second (50 or 60). 

;* 
2420 3* OUTPUTS: CARRY - Set if LTC is available, and new calibration performed. 
2421 ;* MSLCNT - New 1 ms delay loop count value if LTC available, or 
oa58 ;* unchanged if no LTC is available. 

3% 
eees o CALLING SEQUENCE: JSR PC, CALMSL 
ates is COMMENTS : 
2428 + SUBORDINATE ROUTINES CALLED: UNSDIV,OOPS. 
2429 TTT TTT TT Tee TT TT Tee Tee TT TTT Tee eT TTT TTT TTT TTT TT TTT TT TTT TTT TTT TTT TT 
24 
2431 017702 CALMSL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 

017702 004567 164070 JSR R5, PREGOS pC , RESISTED SAVE SUBRT. 
tf 017706 005067 000210 CLR 62$ ;CLEAR THE 2ND TIME F LAG. 
ase ; Synchronize with the LTC. 
2436 017712 012705 000001 3$: MOV #1,R5 ;SET OUTER LOO? COUNTER TO 1 LOOP. 
2437 ; INCREASE THE VALUE LOADED INTO THIS COUNTER IF THE <ee 
2438 sFOLLOWING LOOP FAILS ON FUTURE, FASTER PROCESSORS. <#« 
2439 017716 005000 CLR RO ;CLEAR THE WAIT FOR CLOCK INT COUNTER. 
2440 017720 012767 000001 162436 MOV #1, TIMER1 ;SET UP COUNT OF 1 TO SYNCH WITH LTC. 
2441 017726 005767 162432 4$: TST TIMER1 i CHECK FOR COUNTER HAVING GONE TO ZERO. 
2442 017732 001410 BEQ 6$ JUMP OUT OF LOOP IF LTC HAS INTERRUPTED. 
2443 017734 005200 INC RO ;COUNT THIS ITERATION OF THE INNER LOOP. 
2444 017736 001373 ” BNE 4$ ;LOOP IF COUNTER HAS NOT TURNED OVER. 
2445 017740 005305 DEC RS s;DECREMENT THE INNER LOOP COUNTER. 
asst 017742 003371 BGT 4$ ;LOOP IF OUTER LOOP COUNT NOT UP. 
2448 . "re we got no LTC interrupt, indicate that there is no LTC available. 
me ; LTC must be flakey, or not really an LTC at all. 
ge 

2451 017744 005067 162412 CLR CLKHRZ ;CLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 
2452 017750 000241 CLC s INDICATE FAILURE FOR RETURN. 
aeee 017752 000461 BR 60$ ;BYPASS THE FOLLOWING CALIBRATION PROCEDURES. 
2455 ; We are now synchronized with the LTC. 
esas ; Set up for the calibration loop. 
2458 017754 012704 002364 é$: MOV @TIMER1 ,R4 ;WILL TEST TIMER1 IN THE LOOP BELOW. 





nr 
RR RR 


oe a a) a ee 
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2459 


2508 
2509 
2510 
2511 


017760 


017776 


020114 


020116 
020116 
020120 


020122 
020124 


00 
012714 
016705 


000000 
000000 


000001 
162400 
000120 


000440 


162340 


162310 


002756 


000366 
162270 
000010 


- CALMSL - 


8$: 


10$: 


3° 


; We have now have loop count information for one 
; We have negative of number 


R1 
R2 


R3 
#1,(R4) 
MSLCNT ,RS 
(R4),RO 


PC,O0PS 


;CLEAR THE OUTER LOOP COUNTE 

+O TKate TO CHECK ALL BITS OF TIMER1. 
sINDICATE TO CHECK FOR Y a CLEAR. 
;LOAD TIMER] WITH COUNT OF 1 


__ MS LOOP en: 
;GET THE TIMER1 VALUE. 
;SAVE WORD ot te THE REAL LOOP). 


;SET CARRY IN CASE OF SUCCESS. 

;EXIT LOOP IF TIMER1 HAS CLEARED. 

;COUNT DOWN THE INSIDE MS LOOP COUNT. 
;LOOP IF MS NOT UP. 

s;DECREMENT THE MS TIME COUNT. 

KEEP LOOPI 

;WE OVERFLOWED, SOMETHING IS WRONG, ABORT. 


clock tic 


of outer loops in Rl. each is “HSLCNT inner loops. 


; We have the portion of the | outer loop not executed, in R5 
; Now we calculate the total number of inner loops executed. 


128: 


14$: 


;GET NUMBER OF OUTER LOOPS. 

;GET THE NUMBER OF INNER LOOPS PER OUTER LOOP. 
;COPY NUMBER OF LOOPS FOR MULTIPLY 

;CALC # OF INNER LOOPS DONE IN LAST OUTER LOOP 
;_ AND ADD TO ACCUMULATOR LSWORD. 

;CLEAR ACCUMULATOR MSWORD. 

CHECK R1 FOR O CONDITION 

; SKIP MULTIPLICATION IF ZERO 

sMULTIPLY NUMBER OF INNER 

; LOOPS PER OUTER LOOP BY 

sNUMBER OF OUTER LOOPS PERFORMED. 


; Divide the total number of inner loops by the number of MS per LTC tick. 


16$: 


18$: 


60$: 


62$: 
64$: 


JSR 


NEG Ri 
MOV MSLCNT ,R2 
MOV R2,R3 
SUB R5,R2 
MOV R2,R4 
CLR RS 
DEC R1 
BMI 16$ 
ADD R3,R4 
AOC RS 
BR 14$ 
MOV MSTICK,R1 
MOV R4,R3 
MOV RS,R2 
JSR PC, UNSDIV 
BCS 18$ 
JSR PC,OOPS 
MOV R1,MSLCNT 
COM 62$ 
BNE 2s 
SEC 
PASS 
RTS PC 
WORD 0O 
-WORD O 


;# OF MS PER LTC TICK IS DIVISOR. 

sLSWORD OF LOOP COUNT IS LSWORD OF DIVIDEND. 
sMSWORD OF LOOP COUNT IS MSWORD OF DIVIDEND. 
;DIVIDE NUMBER OF LOOPS BY MS PER LTC TICK. 
BYPASS OOPS IF WE'RE OK. 

sCLOCK ROUTINES ARE NOT LONG 1 eta OR BUG. 
;SET NEW VALUE FOR MS LOOP COUN 

;SET THE 2ND ITERATION FLAGS iF iST ITERATION. 
;BRANCH IF ONLY ONE ITERATION DONE. 

;SET THE SUCCESS FLAG FOR EXIT. 


;RESTORE GPRS, 
PC, a( SP )+ 
; CARRY - SUCCESS FLAG. get IF SUCCESS. 


32ND CALIBRATION ITERATION FLAGS. 
;DUMMY WORD FOR STORAGE OF THE READ WORD. 


;RETURN TO PREGOS SUBRT. 


SEQ 0066 


een + 


Teen ee NE einen een 
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2536 020126 
020126 
2537 020132 
2538 020136 
2539 020140 
2540 020144 
2541 020146 
2542 020150 
2543 020152 
020152 
2544 020154 


| 
| 
2535 


004567 
005067 
011011 
005767 
000261 
001401 
000241 


004736 
000207 


163644 
162210 


162202 


SEQ 0067 

- CKTRAP - 

.SBTTL GLOBAL SUBROUTINE - CKTRAP - 

Pitiittitti itt it¢t titi ttt tt titi titi titi tt tittittittt titi ttt ttt itt ttt ttt ttt ttt ttt 

i* Check Trap Routine - 

;* This subroutine is used to check for a bus time-out trap (004 trap) 

;* which is caused by an access to 6 non-existent memory or I/0 location. 

3* If the trap does not occur, this routine returns a success indication. 

3;* 

;* INPUTS: RO - Source address for move. 

;* 1 - Destination address for move. 

7* (RO) - Source for the move. 

3;* 

;* OUTPUTS: (R1) - Written to the contents of (RO). 

;* Carry flag - Set on return if no 004 trap detected. 

3* TP4FLG - Nonzero if trap occurred, cleared otherwise. 

3;* 

3* CALLING SEQUENCE: JSR PC,CKTRAP 

3% 

;* COMMENTS: If this subroutine causes a trap, either the address which 

3* is labeled ADRPTR will be the trap PC address on the stack. 

;* 


;* SUBORDINATE ROUTINES CALLED: None. 
FERRER EERE RE REE E EERE EERE EERE EERE E ERE E EERE EERE EEE EEE EERE EEE E ER EERE 


CKTRAP:: SAVE Tg CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
CLR TP4FLG ;CLEAR THE 004 TRAP FLAGS. 
MOV hg PF (R1) s;PERFORM THE MOVE IN QUESTION. 
ADRPTR:: TST TP4FLG ;CHECK FOR OCCURENCE OF TRAP. 
SEC ;INDICATE SUCCESS. 
BEQ 60$ s;EXIT WITH SUCCESS IF TRAP DID NOT OCCUR. 
CLC INDICATE FAILURE. 
60$: PASS ;RESTORE GPRS. 
_ - JSR PC, a(SP)-+ sRETURN TO PREGOS SUBRT. 


a ee oe ae ee 


D6 
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2588 
2589 020176 000207 RTS PC 


SEQ 0068 
“GLOBAL SUBROUTINE - CLNRST - 
| 2546 .SBTTL GLOBAL SUBROUTINE - CLNRST - 
! 2547 iti titittititititittttitittiti titi ti tittitti tit itttitittttttttttttt ttt ttt tt ttt 
2548 i* - Clean Reset of the Device Under Test - 
2549 ;* This subroutine is used to reset the DUT to a known state. 
2550 7* The DUT's self-test is skipped,and the fifo is purged of any error 
2551 i* codes, etc. 
2552 ;* If the reset does not succesfully complete, then the carry bit is 
Seca i* passed back to the calling routine (clear). 
;* 
2555 ;* INPUTS: CSRA - Contains the address of the CSR 
2556 ;* TXBFCA - Contains address of DUT DMA Buffer Count register. 
2557 7* ERRNBR - Error number for pone sate error report. 
cane :* ERRTBL- ERRTYP,ERNBR,and ERRMSG set up correctly. 
;* 
2560 ;* OUTPUTS: The DUT performs its reset function into a known state. 
2561 ;* CARRY - Clear indicates the test is to be aborted. 
2562 ;* ERRBLK - value nae be destroyed. 
25€3 3* IESTAT - TX and RX interrupt flags are cleared. 
core 3* TX and RX interrupt enable bits in the DUT's CSR are cleared. 
:* 
333 >* CALLING SEQUENCE: JSR PC,CLNRST 
;* 
2568 ;* COMMENTS: This subroutine can report errors with numbers ERRNBR. 
coe ;* This routine does not destroy the value of ERRNBR. 
:* 
2571 ;* SUBORDINATE ROUTINES CALLED: DELAY,MSLGET,PUFIFO,RESETT. 
2572 ttt tii i ttt iti ittt itt ttt tit ttt tts t tit ttt Ti ttt TTTt TTT TTT TLL TTL 
2573 
2574 020156 CLNRST:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
5575 020156 004567 163614 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
2576 ; Reset the DUT. 
at ; This routine reports errors with numbers from ERRNBR thru ERRNBR-2. 
2579 020162 004767 001270 : JSR PC,RESETT sRESET THE DUT TO A KNOWN STATE. 
cer 020166 103002 BCC 60$ ;EXIT ROUTINE WITH ABORT TEST INDICATOR. 
3¢ 
cone ; Purge the FIFO of error codes, save any BMP codes found. 
coos 020170 004767 000522 ; JSR PC ,PUFIFO ;PURGE THE FIFO. 
2586 020174 60$: ;EXIT THE TEST USING RESETT OR PUFIFO STATUS. 
2587 020174 PASS ;RESTORE GPRS, PASS THE FOLLOWING INTACT: 
020174 004736 JSR PC, aC SP )+ RETURN TO PREGOS SUBRT. 
58 ; CARRY BIT: IF CLEAR, THEN ABORT THE TEST. 
| 
| 


| 
| 


2607 020200 

020200 
2608 020204 
2609 020210 
2610 020212 
2611 020214 
2612 020216 

020216 
2613 020220 


004567 163572 
tr Hee 000020 


005020 
005301 
001375 


004736 
000207 


- CLR1I6W - 


E6 
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-SBTTL GLOBAL SUBROUTINE 
PML EL ITIP TTT TP iT TTP Pe PPP TPP iri titi i itt Tet TTT ttt TTT TTT TTT TT TTT TTT TTT TTT TT 
- Clear Sixteen Words Routine - 

This subroutine clears 16 words starting with the specified word. 


;* 
;* 


;* 

;* INPUTS: 
;* 

;* OUTPUTS: 


CLR16W: : 


2s: 


60$: 


SAVE 


~ 


‘ 


- CLR16W = 


RO - Address of the first word to clear. 

(RO) to (RO+15) - 16 words of memory are cleared to 0. 
oe CALLING SEQUENCE: JSR 
COMMENTS : 


3* 

° 

;* SUBORDINATE ROUTINES CALLED: None. 

BE EERE EEE RRR A ERE E ERE E EERE EERE EEE EERE EERE EERE EERE EE EE 


JSR 
#16.,R1 
(RO)+ 
R1 
2$ 

JSR 
PC 


PC,CLR16W 


;SAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
;SET THE LOOP COUNTER TO 16. 

;CLEAR A WORD OF MEMORY. 

;COUNT THIS LOOP. 

;LOOP IF NOT 16 WORD CLEARED. 

sRESTORE GPRS. 
PC, a(SP )+ 


;RETURN TO PREGOS SUBRT. 


SEQ 0069 


ee ee ae eee — 


LL TTT sas i te se em ne 


ee ee eee ee 





F6 
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2638 020222 
020222 


2642 020226 
2643 020230 
2644 020234 
2645 020236 
2646 020240 
2647 020244 
2648 020250 
2649 020252 
2650 020256 
2651 020260 
2652 020262 
2653 020264 
2654 020272 
2655 020274 


020274 
2656 020276 


004567 


006305 
016501 
005201 
103402 
010165 
005767 
001411 
020167 
101002 
000241 
000404 
056567 
00C261 


004736 
000207 


- CNTERR - 
.SBTTL GLOBAL SUBROUTINE - CNTERR - 
5 RRR ERR KEE RARER EERE RE AREAE EERE EEEEEEREE ERE EE EES 
:* - Count Error Routine - 
;* This subroutine is used to count a "date" error on the specified 
;* line. It checks whether error summary reporting is active, or should 
;* be made active on this line, and activates it if necessary. 
3;* 
;* INPUTS: RS - Line number of line under consideration. 
;* ERCNTB - Label at base of error counters table. 
;* ERSMRF - Error summary flags (bit set if line in summary mode). 
:* NDERPT - Number of individual data errors to report on a line. 
3% 
;* OUTPUTS: CARRY - Set if line is in error summary mode. 
;* ERCNT - Error counter incremented for specified line. 
:* ERSMRF - Bit set if line should be in summary mode. 
3;* 


163550 


002464 
002464 
161760 
161752 


002410 162170 


;* CALLING SEQUENCE: JSR PC,CNTERR 
5 
:* COMMENTS: 


* 
, 

;* SUBORDINATE ROUTINES CALLED: None. 
elated nbn dri pp treet tet tt iii tt ttt ttt itt ttt ttt tit ett ttt tt 


CNTERR:: SAVE ;SAVE CONTENTS F GPRS RO THRU RS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 


3¢ 
; Count the error on the counter for the specified line. 


R5 sFORM WORD OFFSET FROM LINE NUMBER. 
MOV ERCNTBC(R5),21  ;GET THE PRESENT ERROR COUNT FOR THIS LINE. 
Ri ;COUNT ERROR. 
BCS 2$ ;OVERFLOW? YES, DON'T UPDATE COUNTER IN TABLE. 
MOV R1,ERCNTB(RS)  ;UPDATE ERROR COUNTER TABLE ENTRY. 
2s: TST NDERPT 


BEQ 60$ ;SUMMARYS DISABLED? YES, EXIT WITH CARRY 0. 
CMP R1,NDERPT sNO, CHECK FOR ENOUGH ERRORS FOR SUMMARY USE. 
BHI 4$ sENOUGH ERRORS TO USE SUMMARY? YES, GO HANDLE. 
CLC sINDICATE NOT TO USE SUMMARY REPORT YET. 
BR 60$ ;EXIT WITH CARRY 0. 
4$: BIS BITTBLC(RS), ERSMRF ;SET THE ERROR SUMMARY FLAG FOR LINE. 
SEC sINDICATE TO USE SUMMARY REPORT. 
60$: PASS ;RESTORE GPRS. 


JSR PC,a@(SP)-+ 
RTS PC 


sRETURN TO PREGOS SUBRT. 


SEQ 0070 


LLL Se — — - 


G6 
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| SEQ 0071 
GLOBAL SUBROUTINE - DELAY - 
2658 -SBTTL GLOBAL SUBROUTINE - DELAY - 
2659 5 EERE EERE ERE A EERE EERE ERR EAEAEEEEEEEEEEEREREEE EERE 
2660 :* - DELAY SUBROUTINE - 
asst :* This subroutine is used to delay a variable number of milli-seconds. 
;* 
2663 ;* INPUTS: R4 - Contains the number of ms to delay. 
2664 ;* MSLCNT. 
3;* 
2666 3* OUTPUTS: None. 
2667 :* 
cose ;* CALLING SEQUENCE: JSR PC,DELAY 
;* 
2670 ;* COMMENTS: If no hardware clock interrupts are occuring, control-Cs will 
cork ;* not be honored for the duration of the delay. 
;* 
2673 ;* SUBORDINATE ROUTINES CALLED: None. 
So ;RXEAEAAAAAA AAA AAAS AA ATER ARERR EERE EERE RENEE ER EEE EERE EREREEEREEEEEEES 
26 
2676 020300 DELAY:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
020300 004567 163472 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
2677 020304 010401 MOV R4,R1 ;PASS NUMBER OF MS DELAY AS TIME-OUT VALUE. 
2678 020306 012702 177777 MOV #-1,R2 ;TELL MSLOOP ROUTINE TO CHECK ALL BITS. 
2679 020312 005003 CLR R3 ;TELL MSLOOP RTN TO CHECK FOR ALL BITS CLEAR. 
2680 020314 012704 020336 MOV #62$ ,R4 ;TELL MSLOOP TO CHECK DUMMY NON-ZERO WORD. 
2681 020320 004767 000130 JSR PC,MSLOOP ; DELAY THE REQUESTED # OF MS. 
2682 020324 103002 BCC 60$ EXIT ROUTINE IF WE TIMED-OUT. } 
2683 020326 004767 000136 JSR PC,OOPS ;IF NO TIME-OUT, BAD PROGRAM OR HOST MACHINE. 
2684 020332 60$: PASS ; RESTORE GPRS. 
029332 004736 JSR PC, aC SP )-+ ;RETURN TO PREGOS SUBRT. 
2685 020334 000207 RTS PC 


2686 
2687 020336 177777 62$: -WORD -1 ;DUMMY, NON-ZERO WORD. 


i 
2665 


a ee eee eC 


' 
—4 


' CVDHACO DHV11-M FUNC TST PART 1 MACRO YOS.02 Monday 01-Apr-85 07:47 Page 61 


| GLOBAL SUBROUTINE 


| 

| 
| 
{ 


a =< 


020340 
020340 


020344 
020346 


020350 
020352 
020354 
020356 
020362 
020364 
020366 
020370 


004567 


005102 
040203 


005701 
001011 
011400 
010067 
040200 
020003 
000261 
001420 


163432 


000070 


H6 


SEQ 0072 
- MSLGET - 


.SBTTL GLOBAL SUBROUTINE - MSLGET - 

Pitti iii ititititititti titi titi iii iii ii titi ittttiiiiiiiiiiiiiiiiiit@ttt ttt ttt tty 
- Milli Seconds Loop which returns read word and remaining time - 

This subroutine is a general purpose test loop subroutine. It is used 
to verify that a certain action occurs before a time-out period. The 
calling routine passes in which bits should be set and cleared for the 
desired condition and the time-out value in milli-seconds. 

This routine checks for the desired condition upon entrance into the 
routine and then once each milli-second there after. 

Upon return, the last word which was read to check for the condition 
is returned by this subroutine. 


INPUTS: Rl - Time-out value in milli-seconds (up to 64K ms). 
R2 - Bit map of bits to test (1 indicates to test the bit). 
R3 - Desired states of the indicated fields in R2. 
R4 - Address of the word to test. 
MSLCNT - Milli second software loop count. 


OUTPUTS: RO - The last word which was read to check for the condition. 
Ri - Remaining number of ms in time-out time. 
CARRY - Success flag (set if condition is met before time-out). 


CALLING SEQUENCE: JSR PC ,MSLGET 


COMMENTS: This routine works with or without a hardware clock, but the 
calibration is only guarenteed when a line clock is available 
on the system. 

This routine can be used as a delay routine, by specifying the 
desired delay as the time-out and specifying a condition to 
look for which will not be met during the delay. 

If a time-out value of 0 is specified, this routine checks for 
the desired condition before returning. It indicates success 
if the condition is met, failure otherwise. 


HHRHRHRHHRHHHHHHHRHRHRHHHE HH HH 


oe Se we we we we Se Se Se Se Se ee we es SS Se Se Ss Ss Be Se Se Se SS Ge Ss Se Se Se Se as 


eRRHRHRHRHH HH H 


;* SUBORDINATE ROUTINES CALLED: None. 
5 RR AR AR RR RR RR EEE ERE EERE EEE EEE EEE REE EEE EERE EEE 


MSLGET:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 

JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
; Set up mask for removing unused bits in the test word, and clear unused 
; bits in the desired state word to allow direct comparison. 


COM R2 ;GET MASK GF UNUSED BITS. 
BIC R2,R3 ;MASK OUT UNUSED BITS IN DESIRED STATE WORD. 
3¢ 
; Handle the test and exit if we have a 0 time-out value. 
TST R1 ;TEST THE TIME-OUT VALUE FOR ZERO. 
BNE 2s ;I1F NON-ZERO TIME-OUT, GO LOOP AND TEST. 
MOV CR4),RO ;GET THE WORD TO TEST BEFORE EXITING. 
MOV RO,62$ ;SAVE VALUE SO WE CAN RETURN IT. 
BIC R2,RO ;MASK OUT UNTESTED BITS OF WORC. 
CMP RO,R3 ;COMPARE AGAINST DESIRED STATE WORD. 
SEC sINDICATE SUCCESS IN CASE WORDS ARE EQUAL. 
BEQ 6$ ;EXIT WITH SUCCESS IF WORDS ARE EQUAL. 


Eee ee 


16 
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SEQ 0073 
GLOBAL SUBROUTINE - MSLGET - 

2745 020372 000241 CLC ;INDICATE FAILURE (TIME-OUT). 

274 34 

Los ; Non-zero time-out value. Loop, waiting for condition or time-out. 

2750 020376 016705 161774 2$: MOV MSLCNT,RS ;LOAD MS LOOP COUNT. 

2751 020402 011400 4$: MOV (R4),RO ;GET THE WORD TO TEST. 

2752 020404 010067 000042 MOV RO,62$ ;SAVE WORD IN CASE THIS IS THE LAST. 

2753 020410 040200 BIC R2,RO ;MASK OUT UNTESTED BITS OF WORD. 

2754 020412 020003 CMP RO,R3 ;COMPARE AGAINST DESIRED STATE WORD. 

2755 020414 000261 SEC ;SET CARRY IN CASE OF SUCCESS. 

2756 020416 001405 BEQ 6$ EXIT WITH SUCCESS IF WORDS ARE EQUAL. 

2757 020420 005305 DEC R5 ; COUNT DOWN THE INSIDE MS LOOP COUNT. 

2758 020422 001367 BNE 4$ ;LOOP IF MS NOT UP. 

2759 020424 005301 DEC Ri ;DECREMENT THE MS TIME COUNT. 

2760 020426 001363 BNE 2s ;1F TIME NOT UP, LOOP TO COUNT ANOTHER MS. 

eret 020430 000241 CLC ;CLEAR CARRY, WE TIMED-OUT. 

2763 ; "Weve either found condition, or timed-out (possibly from 0 time-out value). 

ons ; Restore the last contents read from the test word. Exit routine. 

2766 020432 016700 000014 és: MOV 62$,RO ;PASS OUT THE LAST READ WORD. 

2767 020436 60$: PASS RO,R1 ;RESTORE GPRS, EXCEPT THE FOLLOWING: 
020436 010066 000002 MOV RO,ROSLOTC(SP) ;PUT RO IN STACK SLOT. 
020442 010166 000004 MOV R1,R1iSLOTC(SP) ;PUT R1 IN STACK SLOT. 
020446 004736 JSR PC, aC SP )+ RETURN TO PREGOS SUBRT. 

2768 RO - LAST READ WORD CHECKED FOR CONDITION. 

2769 ;R1 - REMAINING TIME (0 IF TIME-OUT OCCURED). 

or 020450 000207 RTS PC ;CARRY - SET IF SUCCESS, CLEAR IF TIME-OUT. 

2772 ; Local storage. 

277 


ens 020374 000416 BR 6$ ;EXIT WITH FAILURE, WORDS AREN'T EQUAL. 
3 i> 

2774 020452 000000 62$: -WORD 0 ;STORAGE FOR THE LAST READ WORD. 

| 

! 


i 
—_) 


C 
Gi 


020454 


2814 

2815 020460 

2816 

2817 020464 
020464 

2818 020466 


ee ee ee 


004567 


004767 


004736 
000207 


163316 


177654 








JO 
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LOBAL SUBROUTINE - MSLOOP - 


-SBTTL GLOBAL SUBROUTINE - MSLOOP - 
5A RARER EERE EEE EEE RARER AREER EERE EERE AREER ERE REE EREREE EERE EERE EEE 


i* - Test Loop subroutine - 


7* This subroutine is a general purpose test loop subroutine. It is used 
;* to verify that a certain action occurs before a time-out period. The 
:* calling routine passes in which bits should be set and cleared for the 
i* desired condition and the time-out value in milli-seconds. 

;* This routine checks for the desired condition upon entrance into the 
;* routine and then once each milli-second thereafter. 

;* 

;* INPUTS: Rl - Time-out value in milli-seconds (up to 64K ms). 

:* R2 - Bit map of bits to test (1 indicates to test the bit). 

;* R3 - Desired states of the indicated fields in R2. 

;* R4 - Address of the word to test. 

;* MSLCNT - Milli second software loop count. 

;* 

;* OUTPUTS: CARRY - Success flag (set if condition is met before time-out). 
3;* 

;* CALLING SEQUENCE: JSR PC,MSLOOP 

;* 

;* COMMENTS: This routine works with or without a hardware clock, but the 
;* calibration is only guarenteed when a line clock is available 
;* on the system. 

;* This routine can be used as a delay routine, by me eS ag the 
7* desired delay as the time-out and specifying a condition to 

;* look for which will not be met during the delay. 

:* If a time-out value of 0 is specified, this routine checks for 
;* the desired condition before returning. It indicates success 
> if the condition is met, failure otherwise. 

* 


;# SUBORDINATE ROUTINES CALLED: MSLGET. 
5A RR RRR A I ARR AR EE EERE EAE E EERE EEE E EEE EEE EERE EERE EERE 


MSLOOP:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 


Hid 
; Calling the MSLGET routine from the MSLOOP routine isolates the caller of 
; MSLOOP from the returned test word and remaining time-out velues. 


’ JSR PC,MSLGET ;CALL THE MULTI-PURPOSE MS LOOP AND SEARCH RTN. 


60$: PASS ;RESTORE GPRS, 
JSR PC,@(SP)+ ;RETURN TO PREGOS SUBRT. 
RTS PC ;CARRY - SET IF SUCCESS, CLEAR IF TIME-OUT. 


SEQ 0074 


eae 


ee ee ome 


IK6 
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jw 
@ 
tw 
°o 


2839 


2840 
2841 


2842 
2843 


020470 
020470 


eet, 


02 
020532 


8 
020534 


020611 


004567 


104454 
000145 
020534 
000000 


012746 
012746 
010600 
104417 
062706 


104422 
000776 


004736 
000207 


163302 


020620 
000001 


000004 


- OOPS - 


123 
103 


-SBTTL GLOBAL SUBROUTINE - OOPS - 
5 EERE EERE EERE ARERR EEE ERE EEE ER EERE RAE EERE ERAS EEE EERE EERE EERE 


list of return PC values for all subroutine calls is printed. 


;* - Program abort subroutine - 

;* This subroutine is used to abort the program when a fatal error is 

i* detected in the program or the host system hardware. An error message 
;* is printed giving some information about the nature of the abort. 

;* 

;* INPUTS: Ril - Error code giving reason for abort. 

;* 

;* OUTPUTS: An error message is printed. 

;* 

;* 


pe CALLING SEQUENCE: JSR PC,OOPS 


;* COMMENTS: 


i 
e 

;* SUBORDINATE ROUTINES CALLED: None. 

J - eSIIOIOI IR REE E EE EERE EEE EEE EE 


OOPS:: SAVE Big CONTENTS OF He RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
; REPORT "HOST COMPUTER HARDWARE OR SOFTWARE ‘BUG ENCOUNTERED.” ERROR. 
ERRSF 101,E€M0101 
TRAP CSERSF 
101 


“WORD EMO101 


; REPORT “PROGRAM HUNG, WAITING FOR A CONTROL-C.” 
PRINTF #EM0102 


MOV #EM0102, 
MOV Se 


MOV SP, 
TRAP C$PNTF 
ADD #4 ,SP 
2s: BREAK ;LOOK FOR OPERATOR CONTROL-C INPUT. 
TRAP CS$BRK 
BR 2$ ; INFINITE LOOP. 
60$: PASS ;DON'T NEED THIS, BUT SOMEBODY MAY CHANGE THIS 
JSR PC, a(SP)+ sRETURN TO PREGOS SUBRT. 
RTS PC ; ROUTINE IN THE FUTURE, SO BE CONSISTANT. 


EMO0101:: .ASCIZ /HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED./ 


SEQ 0075 


- (SP) 


ee | 


a a _- 





-— a 
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SEQ 007 
| GLOBAL SUBROUTINE - OOPS - “ 
020614 105 104 056 
20617 000 


0 
2850 oecess 045 116 i33 EM0102:: .ASCIZ /s#NSAPROGRAM HUNG, WAITING FOR A CONTROL-C. <eeeeeeeeeeesesNgN/ 


2851 -EVEN 


ee a ee 


a 





i ed 


| CVDHACO DHV11-M FUNC TST PART 1 MACRO YOS.02 Monday 01-Apr-85 07:47 Page 64 





GLOBAL SUBROUTINE - PUFIFO - 
2853 .SBTTL GLOBAL SUBROUTINE - PUFIFO - 
2854 Prt t iit P iPr i rir r tie t titi iti i titi iii titi ti tit ttt tt ttt tit TTT TTT TTT TTT TTT TTT 
2855 ;* - = PURGE THE FIFO 
2856 ;* This routine tries to remove all the characters from the FIFO. 
aa) ;* Any BMP codes that are found are saved on the BMP code queue. 
;* 
94 ;* INPUTS: RBUFA- Contains the address of the Receiver. 
2861 ;* 
2862 ;* OUTPUTS: Carry bit - Indicates the state of the fifo, set:= purged. 
soe; an BMPCQ - The contents of the BMP code queue may be updated. 
2865 ;# CALLING SEQUENCE: JSR PC, PUFIFO 
;* 

oat i$ COMMENTS: 
2869 - SUBORDINATE ROUTINES CALLED: SAVBMP. 
sort EERE EREAEREEEREEERAEREREEREREESEESREEREREREEEEREREEEEEEREREEESEEEERESEEEEEEEREEED 
2872 020716 PUFIFO: : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 

020716 004567 163054 JSR 5,PREGOS ;CALL REGISTER SAVE SUBRT. 
2873 020722 012701 001000 MOV #512. ,R1 ;SET MAXIMUM TRY COUNT OF 512. 
on 020726 016704 161314 MOV RBUFA,R4 ;GET ADDRESS OF THE RECEIVER BUFFER REGISTER. 
2876 020732 011402 2s: MOV > ca ;GET THE CONTENTS OF THE RECEIVER BUFFER REG. 
po A 020734 100016 BPL ;EXIT IF THE FIFO IS EMPTY, DATA_VALID CLR. 
2879 ; Cheek if the read character is actually a BMP code. 
soe° ; If it is, then save it on the BMP code queue to be reported later. 
2882 020736 012700 070000 MOV #70000 ,RO gy A BIT MAP OF CHAR ERROR BITS 
2883 020742 040200 BIC R2,RO WHICH ARE NOT SET FOR CHAR. 
cose 020744 001006 BNE 4$ ; THROW CHAR AWAY IF NOT BMP OR SELFTEST CODE. 
coos ; Check if the read data is modem status , BMP or Selftest?. 
2888 020746 012700 000300 MOV #300 ,RO ; CHECK IF BMP OR SELFTEST?. 
2889 020752 040200 BIC R2,RO ;TRY TO CLEAR BMP FLAGS IN THE READ DATA. 
2890 020754 001002 BNE 4$ ;IF IT IS MODEM OR SELFTEST CODE THROW IT AWAY. 
coos 020756 004767 001306 JSR PC, SAVBMP ; SAVE BMP CODE ON THE QUEUE. 
2893 020762 005301 4$: DEC R1 ;DECREMENT THE TRY COUNT. 
2894 020764 001362 BNE 2s ;LOOP TO TRY AGAIN. 
2895 020766 000241 CLC ;CLEAR CARRY,TO ot) te FIFO NOT PURGED. 
2896 020770 000401 BR 60$ ;EXIT WITH CARRY CLEAR 
4d 020772 000261 6$: SEC ;SET CARRY, TO INDICATE FIFO PURGED. 
2899 020774 60$: PASS sRESTORE GPRS, 

020774 004736 JSR PC,a(SP)- RETURN TO PREGOS SUBRT. 
2900 ; CARRY BIT, SET INDICATES FIFO PURGED. 
2901 020776 000207 RTS PC 


SEQ 0077 


‘ 
ee ee 


TTT 





i 
! 


} 


A 
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2903 


2948 021012 
2949 021014 
eae 021016 


3 
one 021020 
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- ROPOR - 


004567 162772 


012767 0167 


005704 
100001 
005102 


005005 


7 
12 162762 





SEQ 0078 
-SBTTL GLOBAL SUBROUTINE - RDPOR - 
jRORAEEA REESE EEE EEEEEEEEEEEEEEESEEEEEEEEEEESES OEEEEEREESEEEEEEEERREEEEREREEEES 
;* - Read and verify Data Pattern from Device Registers Routine - 
;* This routine reads and verifies the rotated date pattern which hes 
;* been written by the WDPDR subroutine. 
;* Each active line's register's contents is read and compared with the 
* written data. , 
;* After the unused and Read Only (RO) bits are masked out, any errors are 
i* reported from this routine. : : 
;* This routine will take into account the type of write operation which 
;* was performed by the WDOPDR subroutine. 
;* 
;* INPUTS: R2 - Used to pass in the data pattern to be rotated & verified. 
;* R3 - Byte indicator (- => lo byte, + => hi byte, 0 => both). 
;* R4_- Operation type indicator (- => BIC, + => BIS, 0 => MOV). 
;* ACTLNS - Bit map of active lines on the device under test. 
i* CSRA - Contains the CSR address of the Device under test. 
;* DRADRT - Base address of device register address table. 
:* ERCNTB - Label at base of error counters table for lines. 


« ERRMSG - Set up with the proper error message for this test. 
ce ERRNBR - Set up with the proper error number. 

* LPRO - Equated to LPR reg offset from device CSR address. 

* NUMLNS - Number of lines on the device under test. 

* NDERPT - Number of individual date errors to report on a line. 
* TXBFCO - Equated to TBUFFCT reg offset from device CSR address. 
* UNBTTB - Base address of the unused bit table. 


’ 
;* OUTPUTS: Error messages may be printed at the operator's console. 

3% ERCNT - Error counters table is updated for line under test. 

;* ERRBLK - Contents destroyed. 

;* ERSMRF - Error summary flags bit set if line in summary mode. 
;* UUT CSR - All bits cleared, except IND.ADR.REG field destroyed. 
;* 

;* CALLING SEQUENCE: JSR PC,RDPOR 

7* 

;* COMMENTS: For byte accesses, only the specified byte is verified. 


;* 
;* SUBORDINATE ROUTINES CALLED: ER1601,ROLDAP. 
Frm EERE EKER EERE EERE REESE EEEEEEKEEEEEEEEEEEEEEEEEEEEEEEEEEEED 


RDPOR:: SAVE ;SAVE ree OF GPRS RO THRU RS 


JSR RS, PREG ;CALL REGISTER SAVE SUBRT. 
MOV #ER1601,ERRBLK ;SET UP THE ADDRESS OF THE ERROR REPORT RTN. 
3° 
; Determine whether register data should be inverted from data pattern. 
TST R4 ;CHECK THE OPERAND TYPE INDICATOR. 
BPL 2s sBIC WRITE PERFORMED? NO, USE STANDARD DATA. 
COM R2 ;YES, INVERT THE DATA PATTERN. 
; Set up outer loop. 
2$: CLR RS ;CLEAR LINE COUNTER TO SELECT LINE O. 


3;* 
; The outer loop follows. Each pass through this loop reads and compares date 
:; from all of the device registers for a particuler line if the line is active. 


— 


B/ 
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2959 
2960 


86 021126 


021132 
021136 
021140 
021142 
021146 


94 021150 


021150 
021152 
021154 


96 02 
021160 


021164 
021170 


021172 


004 021176 


021202 
1204 


06 02 
021210 


021212 
021212 
021214 


021216 


GLOBAL SUBROUTINE 


010267 
010577 
010500 


006300 
036067 
001452 
012703 


016702 
004767 
005205 
020527 
002704 


004736 
000207 


000000 


000010 


000377 
000377 


177400 
177400 
002264 


177054 


000016 


000020 
000366 


000010 


161172 


4$: MOV 


The inner loop follows. 


R2,70$ 
RS,@CSRA 
R5,RO 


RO 
re »ACTLNS 


@LPRO,RS 


;SAVE THE OUTER LOOP DATA PATTERN. 
;SET CSR IND.ADR.REG FIELD TO THIS LINE. 


;I1S THE LINE ACTIVE? NO, SKIP THE LINE. 
YES, INITIALIZE REGISTER OFFSET FOR LPR. 


Each pass through this loop reads and compares 


date from a device register. 


Cree oo oe oe 
“| 
= 
o 
< 


8$: BMI 


10$: MOVB 


12$: BIC 
MP 


14$: MOV 


16$: MOV 


60$: PASS 


70$: . WORD 


~ ented 
CRO),R1 
l2$ 

10$ 

RO 

(RO),R1 

R 


1 
#377,R1 
#377,R2 


le$ 
(RO),R1 
#177400,R1 
#177400,R2 


gS anal 
1,R2 


14 ; 
PC,CNTERR 


;SAVE THE INNER LOOP DATA PATTERN. 
;REMOVE UNUSED BITS FROM EXPECTED DATA. 


;CHECK THE ACCESS TYPE INDICATOR. 
s8YTE ACCESS? YES, GO PERFORM BYTE READ. 
;NO, PERFORM WORD READ OF DEVICE REGISTER. 


;LOW BYTE ACCESS? YES, GO DO LOW BYTE READ. 


AD ; 
;PUT HI BYTE BACK INTO THE HI BYTE. 
sREMOVE THE UNUSED BYTE IN ACTUAL DATA. 
;REMOVE THE UNUSED BYTE IN EXPECTED DATA. 


sREAD THE LOW BYTE OF THE DUT REGISTER. 
sREMOVE THE UNUSED BYTE. 
sFORM EXPECTED LOW BYTE FOR COMAPARISON. 


sREMOVE UNUSED BITS FROM ACTUAL DATA. 

;COMPARE ACTUAL AND EXPECTED DATA 

;ACTUAL = EXPECTED? YES, SKIP ERROR. 

NO, COUNT THE ERROR, CHECK FOR ERROR SUMMARY. 
ERROR SUMMARY? YES, SKIP ERROR. 


148 ;USE 
"BAD BIT(S) IN DEVICE xxxxx REGISTER FOR LINE nn (D).” 


R4,R2 

PC ,ROLDAP 
#2 ,R3 
R3,#TXBFCO 
6$ 


outer loop. Now set up for next line. 


70$,R2 
PC,ROLDAP 
RS 

RS, #NUMLNS 
4$ 


JSR 
PC 


PC, a@(SP)+ 


TRAP CSERROR 
sRESTORE THE INNER LOOP DATA PATTERN. 
;ROTATE DATA PATTERN LEFT, NOT THROUGH CARRY. 
;SET REGISTER OFFSET TO THE NEXT REGISTER. 
;COMPARE REG OFFSET WITH OFFSET OF LAST REG. 
;LOOP IF NOT ALL REG DONE FOR THIS LINE. 


Loop if not done. 
;SET UP TO ROTATE THE DATA PATTERN. 
sROTATE THE DATA PATTERN. 

;COUNT THIS LINE 

;COMPARE LINE COUNT WITH NUMBER OF LINES. 
;LOOP IF SOME LINES NOT DONE. 


s;RESTORE GPRS. 


;STORAGE FOR DATA PATTERN OUTSIDE INNER LOOP. 


;RETURN TO PREGOS SUBRT. 
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LLL LLL LLL LL LT A 


021220 
021220 


021224 
021230 
021234 
021240 
021242 
021244 


021244 
021246 
021252 
021256 
021260 
021262 
021264 
021272 
021274 
021276 
021300 
021302 
021310 
021312 
021314 


004567 


012705 
012702 
032704 
001001 
005004 


004767 


162552 


000020 
167410 
000001 


001142 
162512 


000012 


000012 


001074 


- REGTST - 


000002 


177776 


-SBTTL GLOBAL SUBROUTINE - REGTST - 
FO REE ER REE EERE EERE EEE EERE EER ERE EERE AREER REREREEEEEER ERE EERE EERE EERE EEEES 
;* - Registers Test Subroutine - 


;* Subroutine to test the Device Under Test (DUT) regi isters. The used 
:* bits of the registers are either all cleared or all set and then the 
3* data pattern is written and verified using either word or byte 
i* accesses in read/write or read/modify/write mode. 


;* 

;* INPUTS: R3 - Byte indicator (- => low, + => high, 0 => both bytes). 
3* R4 - Access mode (-1 => set then BIC, => clear then BIS, 
;* (-2 => set them MOV, +2 clear then MOV Je 

3* ERRNBR - Set up with initial error number . 

;* 

;* OUTPUTS: GPRSO - GPR save area 0 is destroyed. 

;* Device Under Test registers are written. 

3* Error messages may be printed at the operators console. 

;* 

;* CALLING SEQUENCE: JSR PC ,REGTST 

;* 

:* COMMENTS: This routine loop 16 times rt Ini the same data pattern 
i* rotated left once each iteratio 

:* This routine can report errors INITIAL ERRNBR thru INITIAL<2. 
;* 


;* SUBORDINATE ROUTINES CALLED: RDPDR,ROLDAP,SWAPO,WDPOR 
p-- ERRATA TAREE AREER EAA A REESE REA ATR EERE EERE EERE EERE RERESEREE EERE 


REGTST:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 


; Set up the GPRs for the writting of the data pattern. 
MOV #16.,R5 ;SET UP LOOP COUNTER TO ny 16 ITERATIONS. 


MOV #167410,R2 INITIALIZE THE DATA PATTERN 
BIT #BITO,R4 ;TEST FOR R/W ACCESS. 


BNE 2s ;R/M/W ACCESS? YES, R4 IS ALL SET UP. 
“ CLR R4 ;NO, INDICATE R/W ACCESS. 
; Set up the GPRs for the clearing or setting of all the used bits. 
MOV R4,RO PASS OPERATION TYPE INDICATOR AROUND SWAPO. 
JSR PC, SWAPO :GET ALTERNATE GPR SET IN R1 THRU RS. 
— a ii s;SAVE THE INITIAL ERROR NUMBER. 
NEG R4 sSET UP OP TYPE FOR CLEARING OR SETTING. 
CLR R2 ;SET UP CLEAR WRITE PATTERN. 
CMP R4SLOT(SP),#2  ;TEST FOR CLEAR THEN MOV TEST SEQUENCE. 
BEQ 4$ ;CLEAR THEN MOV? YES, LEAVE WRITE PAT CLEAR. 
COM R2 ;NO, SET ALL BITS OF WRITE PATTERN. 
4$: CLR R3 ; INDICATE THAT WORD ACCESSES SHOULD BE USED. 
CLR RO ;SET ALTERNATE BYTE EXPECTED DATA PAT TO CLEAR. 
CMP R4SLOT(SP),#-2 ;TEST FOR SET THEN MOV TEST SEQUENCE. 
BNE 6$ ;SET THEN MOV? YES, LEAVE ALT BYTE PAT CLEAR. 
COM RO ;NO, SET ALT BYTE EXPECTED DATA PAT TO ALL 1'S. 
6$: JSR PC, SWAPO sRESTORE SWAPPED GPR VALUES TO R1 THRU RS. 


; Start of data pattern loop. 


SEQ 0080 
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GLOBAL SUBROUTINE 


0 
021320 
2 


021320 
021324 
021330 
021334 
021340 


021344 
021362 


021364 
021366 
021370 
021372 
021376 
021402 
021404 


021406 
021412 
021414 


021416 
021424 
021424 
021426 


001411 


010201 
010002 
005403 
005267 
004767 
005403 
010102 


004767 
005305 
003341 


016767 


004736 
000207 


001050 


001766 
162414 
177420 


162372 
177376 


000156 


161026 


- REGTST - 


8$: 


10$: 


162344 60%: 


+ 


3? 


D/ 


PC, SWAPO 
PC,WDPDR 
R1,ERRNBR 
PC,RDPDR 
PC, SWAPO 


—$ A ee 


SEQ 0081 


Set or clear all the used bits of the device registers for all lines. 
Verify that all the bits were set or cleared correctly. 


;GET ALTERNATE GPRS FOR SETTING INTIAL STATES. 
;GO CLEAR ALL USED REGISTER BITS, ALL LINES. 
;SET_UP ERROR NUMBER TO INITIAL ERRNBR. 
;VERIFY ALL USED REGISTER BITS, ALL LINES. 
sRESTORE MAIN GPRS CONTENTS. 


; Write data patterns, all lower byte used bits, all registers, all lines. 
; Verify that the data pattern was written correctly. 


;WRITE DATA PATTERN TO DEVICE REGISTERS. 
;SET ERROR NUMBER TO INITIAL+1. 

;VERIFY DATA PATTERN IN ALTERRED BYTE(S). 
s;CHECK THE BYTE INDICATOR. 

;WORD ACCESS? YES, SKIP SECOND BYTE CHECK. 


3+ 
; Check that the alternate (unmodified) byte is clear or set as expected. 


;SAVE THE DATA PATTERN. 

;GET THE ALTERNATE BYTE EXPECTED DATA. 
;INDICATE THAT OTHER BYTE IS TO BE CHECKED. 
;SET ERROR NUMBER TO INITIAL+2. 

;VERIFY DATA PATS IN OTHER BYTES OF REGISTERS. 
sRESTORE BYTE INDICATOR. 

sRESTORE DATA PATTERN. 


the next data pattern and loop if not done. 


JSR PC,WDPDR 
INC ERRNBR 
JSR . PC,RDPDR 
1ST R3 
BEQ 10$ 
MOV R2,R1 
MOV RO,R2 
NEG R3 
INC ERRNBR 
JSR PC,RDPODR 
NEG R3 
MOV R1,R2 
; Pepare 
JSR PC,ROLDAP 
DEC R5 
BGT 8$ 
MOV GPRSOB ,ERRNBR 
PASS 
JSR 
RTS PC 


sROTATE DATA PATTERN LEFT, NOT THROUGH CARRY. 
;COUNT THIS ITERATION OF THE LOOP. 

sALL PATTERNS DONE? NO, LOOP. 

;YES, RESTORE ERROR NUMBER AND EXIT. 

;GET THE ERROR NUMBR FROM GPR SWAP STORAGE. 


sRESTORE GPRS. 
PC, a(SP)+ sRETURN TO PREGOS SUBRT. 


3 
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GLOBAL SUBROUTINE 


021430 
021430 
021434 
021440 


021442 


021450 
021450 


021452 
021452 
021454 


004567 
005767 
001404 


012767 


104460 


004736 
000207 


SEQ 0082 


- REPSMR - 


162342 
161022 


017160 162324 


-SBTTL GLOBAL SUBROUTINE - REPSMR - 

POMEL E LILI LITT TTT STP PT PPT Perr rrr tii i tt itt ttt itt ttt tT TTT TTT TT TTT TTTTT TT TTT et 
- Report Error Summary Routine - 

This subroutine reports an error summary for those lines which have 

exceeded the number of individual errors to report for a single line 

in @ single test. This parameter can be specified by the operator if 

he/she answers the Software Parameter Questions. 


INPUTS: ERCNTB - Label at base of line error counters table. 
ERRMSG - Address of primary error message. 
ERRNBR - Error number of errors in this routine. 
ERSMRF - “Report error summary for line” flags. 

OUTPLIS ERRBLK - Address of error reporting routine (Destroyed). 


Summary messages may be printed at the operator console. 
CALLING SEQUENCE: JSR PC,REPSMR 
COMMENTS: If no lines have exceeded the maximum number of individual 
errors to report, no messages are printed by this routine. 


Error summaries in this routine are reported as errors. 
The contents of ERRBLK are destroyed. 


;* SUBORDINATE ROUTINES CALI.ED: 
BRR RRR RR REE EERE EERE EERE EERE EERE EEE EE EEE EES 


REPSMR:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 


HHRRHHHHHRHHHKHRHRHHHRH HH HH 


JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
TST ERSMRF ;CHECK THE “PRINT LINE ERROR SUMMARY” FLAGS. 
BEQ 60$ ;EXIT WITHOUT ACTION IF NO SUMMARY FLAGS SET. 
: We have some error summaries to report. 
MOV #ER9004,ERRBLK ;SELECT ERROR REPORTING ROUTINE. 
: Report 
3 “ERROR SUMMARY REPORT FOR LINES WITH EXCESSIVE NUMBERS OF ERRORS: ” 
ERROR 
TRAP C$ERROR 
60$: PASS ;RESTORE GPRS. 
eve - JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 


LLL LL TTT Ls et so—s -we 


a ee a ee 


tire FT 
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SEQ 0083 
peop SUBROUTINE - RESETT - 
3153 .SBTTL GLOBAL SUBROUTINE - RESETT - 
3154 Pitt tit ittttititttittt ttt ttt ti ttt titi ttt titttttittttitttt ttt ttttit ttt tit tt ttt tT 
3155 ;* - Reset Device Under Test - 
3156 ;* This subroutine is used to reset the DUT to a known state. 
3157 i* If reset does not succesfully complete, ie. time-out occurs, then 
| st ;* an abort test error message is reported. 
;* 
3160 ;* INPUTS: CSRA - Contains the address of the CSR 
3161 ik TXBFCA - Contains address of DUT DMA Buffer Count register. 
siee :* ERRTBL- ERRTYP,ERNBR,and ERRMSG set up correctly. 
;* 
3164 ;* OUTPUTS: The DUT performs its reset function into a known state. 
3165 ;* CARRY - Clear indicates the test is to be aborted. 
3166 ;* ERRBLK - value _ be destroyed. 
3167 * IESTAT - TX and RX interrupt flags are cleared. 
ty ;* TX and RX interrupt enable bits in the DUT's CSR are cleared. 
;* 
ey ;* CALLING SEQUENCE: JSR PC,RESETT 
;* 
3172 ;* COMMENTS: This subroutine can report errors with numbers initial ERRNBR 
ay ;* This routine does not destroy the value of ERRNBR. 
3;* 
3175 ;* SUBORDINATE ROUTINES CALLED: DELAY,MSLGET. 
$178 PIriiiiiiiiiiitiittitiititittittititittiti¢ittitttttttt titi titi tttttt ttt ttt ttt tt 
3178 021456 RESETT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
021456 004567 162314 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
a 021462 012702 000040 MOV #BITOS,R2 ;SET BIT MASK OF MASTER RESET BIT. 
3181 ; Test the state of the master reset bit in the CSR. 
3182 ; If MR is set then wait for self-test to complete. 
sie ; If time-out occurs, report the error and pass-out abort test indicator. 
3185 021466 016704 160552 7 MOV CSRA,R4 ;GET THE ADDRESS OF THE DUT'S CSR. 
3186 021472 030214 BIT R2,(R4) ;CHECK STATE OF MASTER RESET BIT. 
3187 021474 001406 BEQ 2s ;DON'T DELAY IF MR IS ALREADY CLEAR. 
3188 021476 005003 CLR R3 ;SET UP DESIRED STATE OF MASTER RESET BIT. 
3189 021500 012701 004704 MOV #2500. ,R1 ;PASS TIME-OUT VALUE OF 2.5 SECONDS. 
3190 021504 004767 176630 JSR PC ,MSLGET ;WAIT FOR SELF-TEST TO COMPLETE, MR CLEAR. 
213h 021510 103012 BCC 4$ ;GO REPORT ERROR IF TIMEOUT OCCURRED. 
3193 32 
3194 ; Set Master Reset bit in CSR. Clear TX and RX enable bits, etc. 
3195 ; Skip the selftest. 
aioe ; Time-out of 2.5 secs, just in case the self-test executes. 
3198 021512 010277 160526 2$: MOV R2,aCSRA ;SET MASTER RESET BIT, DISABLE TX AND RX INTS. 
pied 021516 004767 000614 JSR PC,SKPSTS ;TRY TO SKIP THE SELFTEST. 
3201 ; Set Self-test time-out of 2.5 seconds, and wait for M.R to clear. 
3202 ; If Time-out occurs, then report the fatal error and pass-out the abort 
eres : test indicator. 
3205 021522 005003 ; CLR R3 ;SET UP DESIRED STATE OF MASTER RESET BIT. 
| 3206 021524 012701 004704 MOV #2500. ,R1 ;PASS TIME-OUT VALUE OF 2.5 SECONDS. 
3207 021530 004767 176604 JSR PC ,MSLGET ;WAIT FOR SELF-TEST TO COMPLETE, MR CLEAR. 
, 3208 021534 103410 BCS 6$ ;SKIP ERROR REPORT IF MR CLEARED IN TIME. 


G/ 
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| GLOBAL SUBROUTINE 


3217 021550 


3224 021556 
acer 021562 


3227 021564 
021564 


| 3210 
3211 
3212 
3213 021536 
3214 021542 
3229 021566 
| 
! 


- RESETT - 
Set up error message to report "fatal error found during reset,test aborted”. 
; Indicate test is to be aborted by clearing the carry bit. 
012701 012362 4s: MOV #E€M1601,R1 ;PASS ERROR MESSAGE TO REPORT. 
012767 017010 162224 MOV #ER1603, ERRBLK ;PASS ADDRESS OF ERROR HANDLING ROUTINE. 
;REPORT ERROR “TIME-OUT OCCURRED WAITING FOR MASTER RESET TO CLEAR” 
; “TEST ABORTED” 
ERROR ; >>>>> ERROR <<<<< 
104460 TRAP CSERROR 
000241 CLC ; INDICATE TEST IS TO BE ABORTED. 
000403 BR 60$ ;EXIT THIS SUBROUTINE, ABORT TEST INDICATOR. 
* Clear TX and RX Interrupt enable status flags in IESTAT. 
; Exit with continue test indicator set (ie,carry set). 
005067 160546 és: CLR IESTAT ;CLEAR TX AND RX INTERRUPT STATUS FLAGS. 
000261 SEC s INDICATE SUCCESS, CONTINUE TEST. 
60$: PASS ;RESTORE GPRS, PASS THE FOLLOWING INTACT: 
004736 JSR PC, aC SP )+ ;RETURN TO PREGOS SUBRT. 
; CARRY BIT:IF CLEAR, INDICATES ABORT TEST. 
000207 RTS PC 


SEQ 0084 


j 
— —--—— 


-— - Teen nn EIEEEEEN——— ee -—--— —— 
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SEQ 0085 


| GLOBAL SUBROUTINE - ROLDAP - 
3232 -SBTTL GLOBAL SUBROUTINE - ROLDAP - 
3233 Pettitt itt tii titti ttt tt ttt itt iii titititii itt titi tititiititiittttttt tt ttt ttt ttt 
3234 ;* - ROtate Left DAta Pattern 
3235 ; This routine rotates the passed input data pattern left,without going 
3236 through the ee .The carry is initially set or cleared depending 
3239 
ty INPUTS: R2 - Contains the data pattern to be rotated 
aoa8 OUTPUTS: R2 - Contains the rotated data pattern 
ates CALLING SEQUENCE: JSR PC ,ROLDAP 
3246 COMMENTS : 
3247 
3248 a SUBORDINATE ROUTINES CALLED: NONE 
sees itis tt ittiiitititititttittttttitiititiititittttttittitttttititttt ttt tt ttt ttt ty 
3251 021570 ROLDAP: : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
021570 004567 162202 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
3252 021574 010202 MOV R2,R2 ;SET PROCESSOR STATUS CODES 
3253 021576 005702 TST R2 ;CHECK MSB 
3254 021600 100402 BMI 2s ;BRANCH IF SET 
3255 021602 000241 CLC ;CLEAR CARRY BIT IF MSB CLEAR 
3256 021604 000401 BR 4$ 
3257 021606 000261 2s: SEC SET CARRY IF MSB SET 
3258 021610 006102 4$: ROL R2 ;ROTATE DATA PATTERN LEFT 
3259 021612 60$: PASS R2 ;RESTORE GPRS,EXCEPT 
021612 010266 000006 MOV R2,R2SLOT( SP) ot R2 IN STACK SLOT. 
021616 004736 JSR PC,a(SP)+ RETURN TO PREGOS SUBRT. 
3260 ;R2 - CONTAINS THE ROTATED DATA PATTERN 


| : 

:* 

3237 ;* upon the state of the MSB of the data pattern,before a ROL instruction 
3238 ;* is executed 
;* 

:* 

:* 

:* 

:* 

;* 

:* 

o 

3261 021620 000207 RTS PC 
i 


pee | 


-—— A 





1/ 
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SEQ 0086 
GLOBAL SUBROUTINE - RSTRPT - 

3263 -SBTTL GLOBAL SUBROUTINE - RSTRPT - 
3264 PME LI ti TTP Si TTT P PPP Peri Piri iii t tit ttt ttt tT te TT eT TTT TTT TTT TTT TTT TTT TT TT TTT 
3265 ;* - Report any Reset Errors Routine - 
3266 ;* This routine determines if any error codes are among the piagnastes 
3267 i* codes reported placed in the but received character FIFO by the 
3268 ;* Self-test. If any non BMP error codes are found, or if other errors 
3269 ;* are encountered, appropriate errors are reported. Any BMP codes that 
3270 :* are found, are placed on the BMP code queue to be reported later. 
3271 ;* This routine also purges the DUT FIFO looking for any characters 
s5§ ;* or modem status codes. If any are found, errors are reported. 

3;* 
3274 ;* INPUTS: ERRMSG - Address of the primary error message. 
3275 :* ERRNBR - Error number of first error reported py this rouitne. 
3276 ;* NUMLNS - Equated to the number of line on the DUT. 
oore ;* RBUFA - Contains address of the DUT receiver FIFO. 

;* 
3279 ;* OUTPUTS: CARRY - Success flag (set if FIFO cleared successfully). 
3280 ;* ERRBLK - Address of the errcr report routine (Destroyed). 
He ;* Error messages can be printed at the operatcrs console. 

;* 
aces ;* CALLING SEQUENCE: JSR PC,RSTRPT 

;* 
3285 ;* COMMENTS: This subroutine can report errors with numbers Initial ERRNBR 
3286 i* thru Initial ERRNBR+4. 
ad ;* This routine does not destroy the value of, ERRNBR. 

3;* 
3289 ;* SUBORDINATE ROUTINES CALLED: ERO5S03,ER9007,ER9008, SAVBMP. 
3290 7 Sg ooggg ggg oo Io oooioiikiokiobtoiiek ick 
3291 
3292 021622 RSTRPT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
sos 021622 004567 162150 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 

;* 
3294 ; Read correct number (number of line on DUT) of chars from the FIFO. 
free ; Verify that each char is a selftest success code. 
3297 021626 005003 J CLR R3 ;CLEAR THE CODE COUNTER. 
3298 021630 016705 162134 MOV ERRNBR,RS ;SAVE ERRNBR FOR RESTORATION LATER. 
3299 021634 017702 160406 2s: MOV A@RBUFA,R2 ;READ A CHAR FROM THE DUT FIFO. 
fone 021640 100412 BMI 4$ ;SKIP ERROR IF DATA.VALID SET FOR CHAR. 
te ; We expect a selftest code, but this FIFO slot is empty. 
3304 021642 010567 162122 ‘ MOV R5S,ERRNBR ;RESTORE ERROR NUMBER TO INTITIAL VALUE. 
3305 021646 012701 015522 MOV #EM9018,R1 ;PASS ERROR MESSAGE INFO TO ER9007 ROUTINE. 
cor 021652 012767 017262 162114 MOV #ER9007,ERRBLK ;SELECT PROPER ERROR REPORT ROUTINE. 

3? 

3308 ; Report error with number Initial ERRNRB. 
44 ; "NO SELFTEST CODE IN SELFTEST CODE FIFO SLOT FOR LINE nn AFTER RESET.” 
3311 021660 "ERROR ; >>>>> ERROR <<cc<, 
— 021660 104460 TRAP CS$ERROR 
seta ; Inidicate “success” (because FIFO is purged), and exit this routine. 
3315 021662 000261 ; SEC ;SET SUCCESS FLAG. 


3316 021664 000545 BR 60$ sEXIT ROUTINE. 


sail 


LLL LTT TT Et | we a sm 


ee wee ewes 


J/ 
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GLOBAL SUBROUTINE 


3322 021674 


| 
3323 


6 
3327 021676 


cee. 021734 


3341 021736 
3342 021742 
3343 021746 
Stes 021752 


8 
3349 021760 
021760 
3350 021762 


3354 021764 


6 
3357 022002 


3362 022010 
022010 


3366 022012 
3367 022014 
roe 022020 


1 
3372 022022 


012700 
040200 
001033 


032702 


000426 


010567 
005267 
012701 
012767 


104460 
000413 


010567 


012767 


104460 


005203 
020327 
002705 


012704 


070001 


000200 
000203 
000201 
000300 


000334 


162026 
162022 
015547 
017340 


162000 
000002 
015532 
017262 


000010 


000022 


- RSTRPT - 
; Determine if this is not a selftest code. 
4$: ° MOV #70001,RO0 :GENERATE BIT MAP OF ANY CLEAR ERROR BITS OR 
BIC R2,RO BIT O WHICH ARE CLEAR. 
BNE 8$ ‘G0 TO REPORT ERROR IF THIS IS NOT A TEST CODE. 
;* 
; We have a test code (either BMP or selftest code). 
; Determine what type of code we have. 
BIT #BIT7,R2 ;TEST ROM VERSION 157 INDICATOR BIT. 
BEQ 10$ ;SKIP ERRORS IF SELFTEST ROM VERSION CODE. 
CMPB- ss R2,, #203 ; CHECK IF SKIP SELF TEST CODE. 
BEQ 10$ ;SKIP ERROR REPORT IF SKIP SELF TEST CODE FOUND 
CMPB- ss R2, #201 ; CHECK IF NULL CODE PRESENT. 
BEQ 10$ : SKIP ERROR REPORT IF SELF TEST NULL CODE. 
MOV #300,RO ;TEST CODE TYPE BITS FOR BOTH CODE 
BIC R2,RO ; TYPE BITS SET CINDICATING BMP CODE). 
BNE 6$ ;IF IT IS NOT A BMP CODE GO REPORT ERROR. 
JSR PC, SAVBMP ;SAVE THE BMP CODE ON THE QUEUE. 
BR 10$ ;G0 GET THE NEXT CHARACTER FROM THE FIFO. 
3+ 
; We have a selftest error code. 
6: MOV RS,ERRNBR ;RESTORE ERROR NUMBER TO pt SE VALUE. 
INC ERRNBR ;CALCULATE INITIAL ERROR NUMBER PLUS 1. 
MOV #EM9020,R1 ;PASS ERROR MESSAGE INFO TO ER9008 ROUTINE. 
162014 MOV #ER9008 , ERRBLK ; SELECT PROPER ERROR REPORT ROUTINE. 
; Report error with number Initial ERRNRB + 1. 
; "UNEXPECTED SELFTEST ERROR CODE FOR LINE nn IN FIFO AFTER RESET:"” 
ERROR ; >>>>> ERROR <<<<<, 
TRAP CSERROR 
BR 10$ ;GO TO END OF LOOP. 
; We have a non-selftest code (either BMP code or data char). 
8%: MOV RS,ERRNBR sRESTORE ERROR NUMBER TO INTITIAL VALUE. 
161772 ADD #2,ERRNBR Lot INITIAL ERROR NUMBER PLUS 2. 
MOV #EM9019,R1 PASS ERROR MESSAGE INFO TO ER9007 ROUTINE. 
161764 MOV #ER9007, ERRBLK SELECT PROPER ERROR REPORT ROUTINE. 
¥ Report error with number Initial ERRNRB + 2. 
3 "NON-SELFTEST CODE IN SELFTEST CODE FIFO SLOT FOR LINE nn AFTER RESET.” 
ERROR ; >>>>> ERROR <<<<<., 
TRAP CSERROR 
; End of loop, loop if not all chars have been read from the FIFO. 
10$: INC R3 ;SET CODE COUNTER FOR NEXT ITERATION OF LOOP. 
CMP R3, #NUMLNS ;TEST FOR ALL CODES READ. 
BLT 2$ ;LOOP IF NOT CHARS READ FROM FIFO. 
3° 
; Purge the FIFO until DATA.VALID is clear or until too many chars are read. 
‘ MOV #18. ,R4 ;INITIALIZE THE CHARACTER COUNTER. 


SEQ 0087 
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3373 022026 
3374 022032 
3375 022040 
3376 022046 
3377 022052 
3378 022054 


3383 022056 
3384 022062 
3385 022064 


8 
3389 022066 
3390 022072 


4 
3395 022074 
3396 022100 


3400 022102 
3401 022106 


3406 022110 
3410 022124 


3414 022126 
3415 022132 


3419 022134 
3420 022140 


3425 022142 
022142 


010567 
1 
100051 


012700 
040200 
001403 


012701 
000423 


032702 
001003 


012701 
000415 


032702 
001404 


001403 


012701 
000403 


004767 
000401 


104460 


- RSTRPT - 


161736 
000003 161730 
017340 161726 
160174 


070000 


015573 


000001 


015612 


000200 
000300 


015634 


000130 


— 


18$: 


205: 


22$: 


MOV RS,ERRNBR ;GET INITIAL VALUE OF THE ERROR NUMBER. 

ADD #3, ERRNBR ;CALCULATE ERROR NUMBER OF NEXT ERROR. 

MOV #ER9008 , ERRBLK iy PROPER ERROR REPORT ROUTINE. 

MOV ORBUFA,R2 EAD A CHARACTER FROM THE DUT FIFO. 

SEC INDICATE SUCCESS IN CASE DATA.VALID IS CLEAR. 
BPL 60$ sEXIT ROUTINE WITH SUCCESS IF DATA.VALID CLEAR. 


;* 
; We have a character. 
; Determine if character is a data character. 


MOV #70000 ,RO s TEST BITS 12 THRU 14 OF THE 
BIC R2,RO CODE READ FROM THE DUT FIFO. 
BEQ 14$ SKIP THIS ERROR IF CODE IS NOT A DATA CHAR. 
; We have an unexpected date character: set up and go to report error. 
MOV #EM9022 ,R1 ;SELECT ERROR MSG INFO FOR ERO808 ROUTINE. 
BR 22$ ;GO TO REPORT THIS ERROR. 


;*¢ 


; We have an unexpected code. 
; Determine if the code is a modem status code. 


BIT #BITO,R2 ;TEST MODEM STATUS INDICATOR BIT OF CODE. 
BNE 16$ ;SKIP THIS ERROR IF NOT MODEM STATUS CONE. 
3¢ 
; We have ea modem status code: set up and go to report error. 
MOV #EM9023,R1 ;SELECT ERROR MSG INFO FOR ERO808 ROUTINE. 
BR 22$ ;GO TO REPORT THIS ERROR. 


;* 
; We have an onboard test code. 
; Determine if this code is a BMP code. 


BIT #BIT7,R2 ;TEST THE ROM VERSION BIT OF THE CODE. 
BEQ 18$ ;GOTO SET UP FOR SELFTEST CODE IF ROM VERSION. 
MOV #300 ,RO 
BIC R2,RO ;TEST THE ERROR TYPE BITS OF THE CODE. 
BEQ 20$ SKIP THIS ERROR IF BMP CODE. 
; We have a selftest code: set up and go to report error. 
MOV #EM9024 ,R1 ;SELECT ERROR MSG INFO FOR ERO808 ROUTINE. 
BR 22$ :GO TO REPORT THIS ERROR. 
: We have a BMP code: save it on the queue. 
JSR PC, SAVBMP ;SAVE THE BMP CODE ON THE QUEUE. 
BR 24$ 3 
3+ 
; Report the error with error number of Initial ERRNBR + 3. 
; POUNEXPECTED xxx xxxx FOR LINE nn IN FIFO AFTER RESET: ° 
; ERROR : >>>>> ERROR <<cc<, 


TRAP CSERROR 


3* 
; End of loop. : , 
; Count the character we just received, and check for too many received. 


SEQ 0088 
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ee | ee ee 


; GLOBAL SUBROUTINE 


3429 


3431 
2 


022146 


022150 
022154 
022160 
022166 
022174 


022174 
022176 


022200 
022200 
022202 


3430 022144 005304 


001337 


012701 


012767 


104460 
000241 


004736 
000207 


015411 
161610 
000004 
016470 





L/ 


SEQ 0089 


- RSTRPT - 


161602 
161600 


\ c= 


24$: DEC R4 ;COUNT THIS CHARACTER. 
BNE 12$ ;LOOP IF NOT TOO MANY CHARACTERS PURGED. 


,* 


‘'; We read too many valid 9 a: pated — trying to purge the FIFO. 
'; Report error and exit without su 


; "FIFO WILL NOT PURGE (DATA. VALID STUCK SET), REMAINDER OF TEST SKIPPED.” 


MOV #EM9017,R1 ;SELECT PROPER ERROR MESSAGE. 
MOV RS,ERRNBR ;GET INITIAL ERROR NUMBER. 
ADD #2 , ERRNBR sCALCULATE INITIAL 


’ L ERRNBR 
MOV #EROSO3,ERRBLK ;SELECT PROPER ERROR REPORT ROUTINE. 
;PRINT ERROR REPORT. 
ERROR ; >>>>> ERROR <<<c<, 


TRAP CSERROR 


CLC ;CLEAR THE SUCCESS FLAG. 
60$: PASS ;RESTORE GPRS, 
JSR PC, a(SP)+ ETURN TO PREGOS SUBRT. 


RTS PC ; CARRY - SUCCESS FLAG (det IF FIFO IS PURGED). 


a ee wee ee en eee eee - 4 


LL LLL -—-eV-se awt- <w-‘w we 





3466 022204 


3473 022242 


a ae eee 


| GLOBAL SUBROUTINE 


010046 


104440 
010046 


012700 
104441 
042767 
016777 


012600 
104441 
012600 
000207 
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M/ 


- RXIEO - 


000340 


137777 160102 
160076 160010 


SEQ 0090 

-SBTTL GLOBAL SUBROUTINE - RXIEO - 

poe eeneeneeeeeaenane*--- ~~ 4 ~~~“ 477-1 ‘enpenemeaaeeeeneanenenes 
:* - RECEIVER INTERRUPT DISABLE 

- This routine is used to disable receiver interrupts in the DHV11. 

is INPUTS: NONE . 

- OUTPUTS: The RX.INT.ENBL bit is cleared in the DUT CSR. 

;* IESTST -contains the updated status of the TX and KX interrupt 
:* enable bits. 

;* 

;* CALLING SEQUENCE: JSR PC,RXIEO 

;* 

;* COMMENTS: The contents of the indirect address register field in 

;* the DUT CSR are destroyed. 

3;* 

;* SUBORDINATE ROUTINES CALLED: NONE. 

=< ra ~ yaar Wet wee 9 en 8 
RXIEO:: MOV RO, -(SP) s;SAVE CONTENTS OF RO ON THE STA 

GETPRI -(SP) ;SAVE PROCESSOR PRIORITY ON STACK: 
TRAP gooret 
MOV -(SP) 
SETPRI #PRIO7 ; IGNORE ANY INTERRUPT THAT MAY aE GENERATED. ne 


TRAP C$SPRI 
sCLEAR RX. INT.ENBL BIT IN IESTAT. 
;DISABLE RX INTERRUPTS. 
sENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 
MOV (SP)+,RO 
TRAP C$SPRI 


BIC #137777, 2 tiga 
MOV IESTAT,@CSRA 
SETPRI (SP)+ 


MOV (SP )+,RO sRESTORE RO. 
RTS PC 


MLR —- = 


—_—_— 


ee ee 





a ee ee ee 








N7 


! 
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SEQ 009 
GLOBAL SUBROUTINE - RXIE1 - . 
3475 -SBTTL GLOBAL SUBROUTINE - RXIE1 - 
3476 foo CHARA EEEEEEEEEEEE RES EEEEEEEEEEEREREESESESEEEEEEEE REESE SERRE EEEEEOES 
3477 ;* - RECEIVER INTERRUPT ENABLE - 
mre ;* This routine is used to enable receiver interrupts in the DHV11. - 
3;* 
3480 ;* INPUTS: NONE . 
3481 it 
3482 3* OUTPUTS: The RX.INT.ENBL bit is set in the DUT CSR. 
3483 ;* IESTST -contains the updated status of the TX and RX interrupt 
84 3% enable bits. 
3485 ;* 
re ;* CALLING SEQUENCE: JSR PC ,RXIE1 
3;* 
3488 ;* COMMENTS: The contents of the indirect address register field in 
oes ;* the DUT CSR are destroyed. 
;* 
3491 ;* SUBORDINATE ROUTINES CALLED: NONE. 
ots POMEL IIIT PITT rrr rr iii rit itt iii itttt itt i titi iit itt ttt TTT it titi ttt TTT TTT tTT Titi 
3494 022244 052767 000100 160056 RXIE1:: BIS #BITO6,IESTAT  ;SET RX.INT.ENBL BIT IN IESTAT. 
3495 022252 042767 137677 160050 BIC #137677,IESTAT ;CLEAR ALL OTHER BITS, EXCEPT TX AND RX I.E. 
3496 022260 016777 160044 157756 MOV IESTAT,@CSRA s;ENABLE RX INTERRUPTS. 
3497 022266 000207 RTS PC 


— LO a 


‘ 
re | 


| 


3522 Site 


3530 022322 162704 
3531 022326 010467 


2 
3533 022332 
022332 004736 
3534 022334 000207 


161502 
160224 
160022 
177400 


002726 


000004 
160172 
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GLOBAL SUBROUTINE - SAVBMP - 


SEQ 0092 
.SBTTL GLOBAL SUBROUTINE - SAVBMP - 
WeMETiii iti titititiii it titi tititiiiiiiiitiiiititiiiiiiiitiiiiiiitiititi ttt ttt 
;* - Save BMP codes Routine - 
;* This routine saves the perameter passed in, onto the BMP code queue 
i* together with the number of the currently executing test. 
3% 
;* INPUTS: R2 - Contains the BMP code that is to be placed on the queue. 
;* BMPCQP - Contains address of next me mye in the bmp queue. 
;* BMPCQB - Label at base of the BMP code que 
;* BMPCQE - Label of next location after ae: ona of the BMP queue. 
3* TSTNUM - Contains the number of the current test. 
3;* 
;* OUTPUTS: BMPCQP - Incremented by 4. 
;* The contents of the BMP code queue are updated. 
3% 
;# CALLING SEQUENCE: JSR PC, SAVBMP 
3;* 
3* COMMENTS: If the overflow occurs then the last location will be 
3* overwritten by any subsequent attempts to update the queue. 


;* 
3* SUBORDINATE ROUTINES CALLED: None. 
Fr — SSSSSSSSSSSS SSS SSS SSS SSS SSS SSE SSSSESSESSSSSESS SSS ESSE SSSSESESSESSSSSSSE SES EESEE SES 


SAVBMP:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 


x R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV BMPCOP ,R ;GET THE POINTER TO THE NEXT LOCATION IN QUEUE. 
MOVB amas (Ra) ;SAVE THE CURRENT TEST NUMBER ON THE QUEUE. 
INC s INCREMENT THE POINTER TO GIVE AN EVEN ADDRESS. 
BIC $177400, R2 ;CLEAR_THE UNWANTED BITS FROM THE BMP CODE. 
MOV R2,(R4)s SAVE THE BMP CODE ON THE QUEUE. 
CMP R4, #BMPCQE sCHECK IF OVERFLOW WILL OCCUR THE NEXT TIME. 
BLO es ;GO SAVE THE POINTER IF WE WILL NOT OVERFLOW. 
SUB #4 ,R4 sRESET THE POINTER TO THE LAST LOCATION IN QUE. 
2$: MOV R4,BMPCQP ;SAVE THE POINTER. 
60$: PASS ;RESTORE GPRS. 
ats - JSR PC, a(SP)+ ;RETURN TO PREGOS SUBRT. 


' 
| 
a a CU OOO’ OO OOOO en“: _—0.eese 
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56 022336 


022336 
022342 
022346 


022352 


022410 
022410 
022412 


GLOBAL SUBROUTINE 


004567 
012704 
004767 


012701 


012703 


001365 


004736 
000207 


161434 
000012 
175726 


000050 


052525 
157654 


157662 
000017 


- SKPSTS - 


.SBTTL GLOBAL SUBROUTINE - SKPSTS - 

eM iiiitititititittititiiiiiiitiiiitititiiiititiiitiiiiiiiiiiiiiiititttt ttt? 
:* - Skip Selftest Routine - 

* This subroutine is used to skip the selftest after a DUT reset has been 
:4 initiated. It must be entered immediately after setting the DUT Master 
;* Reset routine or after the execution of a bus reset (because of timing 
8 considerations). 


INPUTS: Coes - Contains address of the DUT CSR. 

;* TXBFCA - Contains address of DUT DMA Buffer Count register. 
3;* 

;* OUTPUTS: Skip selftest codes are written to the DUT registers. 


3;* 

3* CALLING SEQUENCE: JSR PC,SKPSTS 
7* 

;* COMMENTS: 


;* 
;* SUBORDINATE ROUTINES CALLED: DELAY. 
Sr EERE REE E ERE ERE EER ER EKER ER EREREREREREE EEE EE EREREEEEERERER ESE 


SKPSTS:: SAVE Typ CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV #10. ,R4 PASS DELAY VALUE OF 10 MILLI-SECONDS. 


JSR PC,DELAY ;DELAY FOR 10 MILLI-SECONDS. 
; Write skip self-test code (52525) to all the indexed DUT Registers. 


MOV #NUMLNS !BITOS,R1 one IND.ADR.REG FIELD (PLUS M.R. a WORD. 
;THE ABOVE INCLUSION OF THE M.R. BIT IS og eee BECAUSE OF T 


; LP2K OF A M.R. BIT WRITE LOCK-OUT ON THE DH 
MOV pats. R3 sINITIALISE THE SKIP SELF-TEST CODE. 
4$: DEC ;SELECT THE NEXT SET OF DEVICE REGISTERS. 


MOV CSRA, R4 ;GET THE ADDRESS OF THE CSR OF THE DUT. 
MOV R1,(R4)- 
6$: MOV R3,(R4)s 


; EGISTER. 
CMP R4,TXBFCA ; COMPARE POINTER WITH LAST = hat eee 


BLO 6$ ;LOOP IF NOT ALL REGS DONE IN THIS 
BIT #17,R1 TEST FOR IND.ADR.REG FIELD DECREMENTED TO 0. 
BNE 4$ ;LOOP UNTIL ALL REGISTERS CONTAIN THE CODE. 
60$: PASS ;RESTORE GPRS. 


JSR PC,a(SP)+ 
RTS PC 


s;RETURN TO PREGOS SUBRT. 


SEQ 0093 


a a ee — es _ 


D8 
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SEQ 0094 
, GLOBAL SUBROUTINE - SWAPO - 
3578 .SBTTL GLOBAL SUBROUTINE - SWAPO - 
| 3579 POM TIT TT TIT TT TTT Tt TTT ttt TTT TTT ttt ttt TTT TTT tt titi tii 
3580 ;* - Swap GPRs With GPR Set 0 Routine - 
3581 :* This subroutine swaps the present contents of GPRs R1 thru R5 with 
3582 ;* the contents of the number zero GPR save area. The contents of RO 
E344 ;* ere not altered by this subroutine. 
;* 
3585 ;* INPUTS: GPR contents R1 thru R5. 
sees ;* GPRSOB - Label at base of GPR save area number zero. 
;* 
3588 ;* OUTPUTS: Rl thru RS contain the previous contents of GPR save area 
3589 ;* zero words 1 thru 5 respectively. 
3590 ;* GPRSO - GPR save area 0 words 1 thru 5, contain previous 
24d] 3* contents of GPRs R1 thru R5 respectively. 
3;* 
3298 ;* CALLING SEQUENCE: JSR PC, SWAPO 
3;* 
ad ;* COMMENTS: The state of the CARRY flag is not alterred by this routine. 
3;* 
3597 ;* SUBORDINATE ROUTINES CALLED: None. 
Ste Fa REE EEE EEE EE EERE EERE EERE EEE EERE EERE REE REE EEE REAR EEE EEAKREEEEEEEE SE EEEE 
or 022414 010046 SWAPO:: MOV RO,-(SP) ;SAVE THE CONTENTS OF RO. 
3602 ; Load the stack from the GPRs. 
3604 022416 010146 ; MOV R1,-(SP) ;SAVE THE CONTENTS OF R1. 
3605 022420 010246 MOV R2,-(SP) ;SAVE THE CONTENTS OF Re. 
3606 022422 010346 MOV R3,-(CSP) ;SAVE THE CONTENTS OF R3. 
3607 022424 010446 MOV R4,-(SP) ;SAVE THE CONTENTS OF R4. 
re4 022426 010546 MOV R5,-(SP) ;SAVE THE CONTENTS OF RS. 
a ; Load tne GPRs from the GPR save area 0. 
3612 022430 012700 002450 MOV #GPRSOB , RO ;GET THE BASE ADDRESS OF GPR SAVE AREA 0. 
3613 022434 012001 MOV CRO)+,R1 ;LOAD R1 WITH GPR SAVE AREA O WORD 1. 
3614 022436 012002 MOV CRO)+,R2 ;LOAD R1 WITH GPR SAVE AREA O WORD 2. 
3615 022440 012003 MOV (RO)+,R3 ;LOAD Ri WITH GPR SAVE AREA O WORD 3. 
3616 022442 012004 MOV CRO)+,R4 ;LOAD Ri WITH GPR SAVE AREA O WORD 4. 
aah 022444 012005 MOV C(RO)+,R5 ;LOAD Ri WITH GPR SAVE AREA O WORD 5. 
344 ; Load the GPR save area 0 from the stack. 
3621 022446 012640 ; MOV (SP)+,-CRO) ;LOAD GPR SAVE AREA 0 WORD 5 WITH SAVED RS. 
3622 022450 012640 MOV (SP)+,-CRO) ;LOAD GPR SAVE AREA O WORD 4 WITH SAVED R4. 
3623 022452 012640 MOV (SP)+,-CRO) ;LOAD GPR SAVE AREA 0 WORD 3 WITH SAVED R3. 
3624 022454 012640 MOV (SP)+,-CRO) ;LOAD GPR SAVE AREA 0 WORD 2 WITH SAVED Re. 
at 022456 012640 MOV (SP)+,-(CRO) ;LOAD GPR SAVE AREA 0 WORD 1 WITH SAVED Rl. 
rat 022460 012600 MOV (SP)+,RO ;RESTORE THE INITIAL VALUE OF RO. 


3629 022462 000207 RTS PC 


eee | 


E8 
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SEQ 0095 
a SUBROUTINE - TSABRT - 
3631 -SBTTL GLOBAL SUBROUTINE - TSABRT - 
3632 POMC EI IIIT TTT TT Pit PPP irri irri i iit ttt ttt ett tT TTT TTT TTT TTT TTT TTT TTTTTTTT TT 
3633 :* - TEST ABORT ROUTINE - 
3634 ;* This subroutine is used when a non-test related error has been found 
3635 ;* during the execution of the current test. 
3636 ;* It is used to inform the operator that the current test has been 
3637 ;* aborted. 
3638 i* 
3639 ;* INPUTS: ERRMSG - Contains the name of the current test.- 
3640 3* ERRNBR - Contains the correct error number. 
seas 3* The remainder of the ERRTBL is correctly initialised. 
;* 
raz ;* OUTPUTS: Messages are reported to the operator. 
;* 
at ;* CALLING SEQUENCE: JSR PC, TSABRT 
;* 
3647 ;* COMMENTS: 
3648 :* 
3649 ;* SUBORDINATE ROUTINES CALLED: ER1603. 
44 EME TILi ti TCT Ti rir tri ri titi titi it tert tt tTtTe tT TTT TT TTT TTT TTTTTTTTTTTrrrTrTrTTT 
3652 022464 TSABRT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
022464 004567 161306 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
3653 022470 012701 022506 MOV #2$,R1 PASS ADDRESS OF FIRST MESSAGE TO BE REPORTED. 
3654 022474 012767 017010 161272 MOV #ER1603,ERRBLK ;SET-UP THE ERROR REPORTING ROUTINE. 
3655 022502 ERROR ; >>>>> ERROR <<<<<, 
022502 104460 TRAP CSERROR 
3656 022504 000432 BR 60$ ; 
3657 022506 040 116 117 2%: -ASCIZ / NON-RELATED TEST ERROR FOUND DURING TEST EXECUTION/ 
022511 116 055 122 
022514 105 114 101 
022517 124 105 104 
022522 040 124 105 
022525 123 124 040 
022530 105 122 122 
022533 117 122 040 
022536 106 117 125 
022541 116 104 040 
022544 104 125 122 
022547 111 116 107 
022552 040 124 105 
022555 123 124 040 
022560 105 130 105 
022563 103 125 124 
022566 111 117 116 
022571 000 
3658 EVEN 
3659 022572 60$: PASS ;RESTORE GPRS. 
022572 004736 JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 


3660 022574 000207 RTS PC 


SLL LLL TT LT A a 


FB 
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| 
| 3662 


3685 022576 


3692 022626 


3696 022630 
3697 022634 
3698 022636 
3699 022640 


3704 022642 
3705 022644 
3706 022646 
3707 022652 
3708 022654 
3709 022656 
3710 022660 


3712 022662 
022662 
022666 


3714 022670 


004567 
010500 
012701 
016702 
005202 
012703 
016704 
005005 


010477 
105712 
100001 
050105 


030100 
001402 
142712 
005204 
006301 
005303 
001363 


010566 
004736 


000207 


161174 


000001 
157444 


000010 
157502 


157410 


000200 


000014 


- TXDSBL - 


.SBT7L GLOBAL SUBROUTINE - TXDSBL - 

PeMetiiitiitittttititi ttt titi ttt ttt titi ti tttttt ttt ttt ttt ttt itt ttt ttt tT TTT TTT tt 
- Transmitter Disable - 

This subroutine is used to disable transmission on selected lines by, 

clearing the associated TX.ENABLE bit on the DUT. 


INPUTS: RS - Bit's set correspond to lines on which to clear TX.ENABLE. 
CSRA - Contains the address of the DUT CSR. 
IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
NUMLNS - Equated to be the maximum number of lines available. 
TXAD2A - Contains the address of the TBUFFAD2 register. 


SRRHRHEERE EEE H HH 


TBUFFAD2 - The state of the TX.ENBLE bit may be altered. 
The contents of the I, ADD.REG field in the CSR are destroyed. 


;* CALLING SEQUENCE: JSR PC, TXDSBL 
‘COMMENTS: 
x 


;* SUBORDINATE ROUTINES CALLED: NONE. 
3° ego oa IOI IRIE aR dE EE 


TXDSBL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV RS,RO ;COPY BIT MAP OF LINES TO DISABLE TRANSMISSION. 
MOV #BITO,R1 ; INITIALIZE THE SELECTED LINE BIT MASK. 
MOV TXAD2A,R2 ;GET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
INC R2 ;GET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
MOV #NUMLNS ,R3 ;GET MAXIMUM LINE NUMBER PLUS ONE. 
MOV IESTAT,R4 ;GET THE STATES OF THE INT ENABLE BITS. 
CLR RS ;LO0G POSSIBLE TX DISABLED ON ALL LINES. 
; Select every line in turn, and log the state of each TX.ENABLE bit. 
2s: MOV R4,aCSRA ;WRITE TO DUT CSR TO SELECT LINE REGISTERS. 
TSTB = (R2) ;CHECK STATE OF TX.ENABLE BIT ON SELECTED LINE. 
BPL 4$ ;SKIP NEXT INSTRUCTION IF TX.ENABLE CLEAR. 
BIS R1,R5 ;LOG TX ENABLE BIT SET FOR SELECTED LINE. 
; ” tines TX.ENBLE on lines that have a corresponding bit set in the tx disable 
; line bit map. 
as: BIT R1,RO ;CHECK STATE OF DISABLE LINE BIT MAP. 
BEQ 6$ ;BRANCH IF THIS LINE TO REMAIN UNALTERED. 
BICB #BIT7,(R2) ;CLEAR TX.ENABLE BIT ON SELECTED LINE. 
6$: INC R4 ;PREPARE TO SELECT REGISTERS FOR NEXT LINE. 
ASL R1 ;SHIFT BIT MAP FOR NEXT LINE. 
DEC R3 ;DECREMENT LINE NUMBER. 
BNE 2s ;LOOP TO CHECK NEXT LINE. 
60$: PASS R5 ;RESTORE *) oneal 
MOV R5,RSSLOT( SP) ;PUT RS IN STACK SLOT. 
JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 


;R5 - PREVIOUS STATES OF ALL TX.ENABLE BITS. 


OUTPUTS: R5 - Bit's set indicate the initial states of all TX.ENBLE bits. 


SEQ 0096 


G8 
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SEQ 0097 
| GLOBAL SUBROUTINE - TXENBL - 
| 3716 .SBTTL GLOBAL SUBROUTINE - TXENBL - 
3717 POMeTIiittttitiiititiititiiiiitiiiiititiiiriti¢@iiiiiiiiiiitiitititt ttt ttt ttt?) 
3718 ;* - Transmitter Enable - 
3719 ;* This subroutine is used to enable transmission on selected lines by 
cise ;* setting the associated TX.ENABLE bit on the DUT. 
;* 
| 3722 ;* INPUTS: RS - Bit's set correspond to lines on which to set TX.ENABLE. 
3723 — 7* CSRA - Contains the address of the DUT CSR. 
3724 ;* IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
3725 7* NUMLNS - Equated to be the maximum number of lines available. 
i; 3 ;* TXAD2A - Contains the address of the TBUFFAD2 register. 
3;* 
3728 ;* OUTPUTS: RS - Bit's set indicate ereviowe’ disabled lines. 
3729 :* TBUFFAD2 - The state of the T ENOLE bit may be altered. 
Lt ;* The contents of the IND.ADD. REG field in the CSR are destroyed. 
;* 
es - CALLING SEQUENCE: JSR PC, TXENBL 
3734 - COMMENTS : 
3735 ;* 
3736 ;* SUBORDINATE ROUTINES CALLED: NONE. 
sre? PEM TIttitititiiitiitit@itiigittiigitiiiiiitiiiittitititititiititttttttt ttt tt? 7 
3 . 
3739 022672 TXENBL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
022672 004567 161100 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
3740 022676 010500 MOV R5,RO ;COPY BIT MAP OF LINES TO ENABLE. 
3741 022700 012701 000001 MOV #BITO,R1 ;INITIALIZE THE SELECTED LINE BIT MASK. 
3742 022704 016702 157350 MOV TXAD2A ,R2 ;GET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
3743 022710 005202 INC R2 ;GET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
3744 022712 012703 000010 MOV #NUMLNS , R3 ;GET MAXIMUM LINE NUMBER. 
3745 022716 016704 157406 MOV IESTAT,R4 ;GET THE STATES OF THE INT ENABLE BITS. 
cree 022722 005005 CLR RS ;CLEAR TX.ENABLE BIT LOG OF DISABLED LINES. 
;¢ 
Ups ; Select every line in turn,and log any TX.ENBLE bit that is clear. 
3750 022724 010477 157314 2s: MOV R4,aCSRA ;WRITE TO DUT CSR TO SELECT LINE REGISTERS. 
3751 022730 105712 TSTB = (R2) ;CHECK STATE OF TX.ENABLE BIT ON SELECTED LINE. 
3752 022732 100401 BMI 4$ ;SKIP NEXT INSTRUCTION IF TX.ENABLE SET. 
ever 022734 050105 BIS R1,R5 ;LOG TX ENABLE BIT CLEAR FOR SELECTED LINE. 
3755 ; " Set TX.ENBLE on lines that have a corresponding bit set in the tx enable 
aves ; line bit map. 
3758 022736 030100 ai: BIT R1,RO ;CHECK STATE OF TX.ENABLE LINE BIT MAP. 
3759 022740 001402 BEQ 6$ ;BRANCH IF THIS LINE TO REMAIN UNALTERED. 
3760 022742 152712 000200 BISB #BIT7,(R2) ;ENABLE TRANSMISSION ON SELECTED LINE. 
3761 022746 005204 6$: INC R4 ;PREPARE TO SELECT REGISTERS FOR NEXT LINE. 
3762 022750 006301 ASL Ri ;SHIFT BIT MAP FOR NEXT LINE. 
3763 022752 005303 DEC R3 ;DECREMENT LINE NUMBER. 
den 022754 001363 BNE 2s ;LOOP TO CHECK NEXT LINE. 
| 3766 022756 60$: PASS R5 ;RESTORE GPRS,EXCEPT 
022756 010566 000014 MOV RS,RSSLOT(SP) ;PUT RS IN STACK SLOT. 
| 022762 004736 JSR PC,@(SP)+ RETURN TO PREGOS SUBRT. 
| 3767 3R5 - LINE BIT MAP CORRESPONDING TO THE 
3768 ; PREVIOUS LINES THAT WERE DISABLED. 


3769 022764 000207. RTS PC 


sccaiiadtaleiiciiciite ceanieaanitiaaaiil 


~— TTT ee 


H8 
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SEQ 0098 
| GLOBAL SUBROUTINE - TXIEO - 

3771 .SBTTL GLOBAL SUBROUTINE - TXIEO - 

3772 SMT T OLE TT TT tet rte titi tii iit titi itt i ttt tte ttt tt TTT TTT TT TTT TT TTT TTT TTT TTT TTT 

3773 7% - TRANSMITTER INTERRUPT DISABLE - 

Lhe, ;* This routine is used to disable transmitter interrupts in the DHV11. 

;* 

7% s INPUTS: NONE. 

3778 + OUTPUTS: The TX.INT.ENBL bit is cleared in the DUT CSR. 

3779 ; IESTST -contains the updated status of the TX and RX interrupt 

3780 ;* enable bits. 

3781 :* 

sree ;* CALLING SEQUENCE: JSR PC, TXIEO 

;* 

3784 ;* COMMENTS: The contents of the indirect address register field in 

dae ;* the DUT CSR are destroyed. 
:* 

3787 ;* SUBORDINATE ROUTINES CALLED: NONE. 

3788 PERLE Li ttt t Titi iti t iti titi titi it tt ttt ttt tit ttt tT TTT TTT TTT TTT TTT TTT TTT TTT TTTT tT 

3789 022766 010046 TXIEO:: MOV RO,-(SP) ;SAVE CONTENTS OF RO ON THE STACK. 

3790 022770 GETPRI -(SP) ;SAVE CURRENT PROCESSOR PRIORITY ON THE STACK. 
022770 104440 TRAP C$GPRI 
022772 010046 MOV RO, -(SP) 

3791 022774 SETPRI #PRIO7 ; IGNORE ANY INTERRUPTS THAT MAY BE GENERATED. 
022774 012700 000340 MOV #PRIO7,RO 
023000 104441 TRAP C$SPRI 

3792 023002 042767 177677 157320 BIC #177677,IESTAT ;CLEAR TX.INT.ENBL BIT IN IESTAT. 

3793 023010 016777 157314 157226 MOV IESTAT,@CSRA ;DISABLE TX INTERRUPTS. 

3794 023016 SETPRI (SP)+ ; ENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 

023016 012600 MOV (SP)+,RO 
023020 104441 TRAP C$SPRI 
3795 023022 012600 MOV (SP)+,RO ;RESTORE RO. 
3796 023024 000207 RTS PC 


' 
—) 


i 


| CVDHACO DHV11-M FUNC TST PART 1 MACRO Y05.02 Monday 01-Apr-85 07:47 Page 80 
GLOBAL SUBROUTINE 


6 
3817 023026 
3818 023034 
3819 023042 
3820 023050 


ee ed ee ee ee ee 


052767 040000 157274 
042767 137677 157266 
016777 157262 157174 
000207 








18 


SEQ 0099 


- TXIE1 - 


-SBTTL GLOBAL SUBROUTINE - TXIE1 - 
CE eet e bette eth tte tite tii ite titi it itt itt t ttt tt tet eT Tee Te eet 


:* - TRANSMITTER INTERRUPT ENABLE - 

:* This routine is used to enable transmitter interrupts in the DHV11. 
;* 

;* INPUTS: NONE . 

;* 

;* OUTPUTS: The TX.INT.ENBL bit is set in the DUT CSR. 

:* IESTST -contains the updated status of the TX and RX interrupt 
:* enable bits. . 

;* 

;* CALLING SEQUENCE: JSR PC, TXIE1 

;* 

3» COMMENTS: The contents of the indirect address register field in 

;* the DUT CSR are destroyed. 

;* 

;* SUBORDINATE ROUTINES CALLED: NONE. 


RRR RR RR RR KR RK ERE EERE EKER KEE ERE ERE REE EEE EERE 


TXIE1:: BIS #BIT14,IESTAT ;SET TX.INT.ENBL BIT IN IESTAT. 
BIC #137677,IESTAT ;CLEAR ALL BITS EXCEPT TX RX I.E BITS. 
Ag - htiaiaaaaaaas ;DISABLE TX INTERRUPTS. 


| 
| 


' 





ee 


oe ae ee ee eee —— — ——- 


J8 
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| 
| 3822 


3845 023052 
023052 


3849 023056 
3850 023060 
3851 023062 
3852 023064 
3853 023070 


3857 023072 
3858 023074 
3859 023076 
3860 023100 
3861 023102 


3865 023106 
3866 023110 
3867 023112 
3868 023114 
3869 023116 
3870 023120 
3871 023122 


3876 023124 
3877 023126 


004567 160720 


010204 
160104 
103403 
012701 
000442 


005004 
000241 
006001 
006004 
012700 


010246 
010346 
160403 
005602 
103402 
160102 
103003 


012603 
012602 


177777 


000020 


SEQ 0100 


- UNSDIV - 


-SBTTL GLOBAL SUBROUTINE - UNSDIV - 

PUMP TIT it iti itigititititgititiiitiriiiiiiriiitittiitiriiiiiiiiiiiiititttttt titi tt. 
- Unsigned Divide Routine - 

This subroutine is used to divide a 32 bit unsigned dividend by a 

16 bit unsigned divisor giving a 16 bit quotient. All numbers” are 

considered to be unsigned. A success flag is not set on return if 

the quotient was too big to be contained in 16 bits. 


INPUTS: Rl - The divisor, unsigned, 16 bits. 
R2 - Most significant word of the dividend, unsigned, 16 bits. 
R3 - Least significant word of the dividend, unsigned, 16 bits. 


OUTPUTS: Ri - Quotient, unsigned, 16 bits (177777 if overflow). 
CARRY - Success flag, set if complete quotient fits in 16 bits. 


ALLING SEQUENCE: JSR PC,UNSDIV 


C 
COMMENTS: If the divisor is 0 the quotient is returned as all ones 
(177777) and the carry is clear regardless of the dividend. 


;* SUBORDINATE ROUTINES CALLED: None. 
5 RR RR RR RR A RR RRR EEE EEE EERE EERE EEE EEE EEE EEE EE EEE 


HRRHRHNREHHEE HHH HHH 


UNSDIV:: SAVE Tags CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
Hid 
; Check for quotient greater than 16 bits condition. 
‘ MOV R2,R4 ;GET MSW OF DIVIDEND FOR SUBTRACT. 
SUB R1,R4 ;SUBTRACT DIVISOR FROM MSW OF DIVIDEND. 
BCS 2s ;IF IT DIDN'T GO, WE HAVE QUOTIENT < 16 BITS. 
MOV #-1,R1 ;SET QUOTIENT TO ALL ONES (177777), 
BR 60$ ;EXIT WITH CARRY CLEAR. 
; Set up counters and various working GPRs. 
2s: CLR R4 ;CLEAR THE LSW OF THE DIVISOR. 
CLC ;CLEAR CARRY FOR THE SHIFT OF THE DIVISOR. 
ROR Ri ; DIVISOR BY 
ROR R4 ; 2CUNSIGNED ) 
MOV #16. ,RO ;SET UP INITIAL SHIFT COUNT TO 16. 
3? 
; The subtract and shift loop. 
4s: MOV R2,-(SP) ;SAVE MSWORD OF DIVIDEND. 
MOV R3,-(SP) ;SAVE LSWORD OF DIVIDEND. 
SUB R4,R3 ;LSWORD DIVIDEND - LSWORD OF DIVISOR. 
SBC R2 ;MSWORD DIVIDEND - BORROW 
BCS 6$ ;IF BORROW FROM BORROW SUBTRACT, IT DIDN'T GO. 
SUB R1,R2 ;MSWORD DIVIDEND - MSWORD OF DIVISOR. 
BCC 8$ ;IF NO BORROW, IT WENT, CARRY IS CLEAR. 


tt didn't go, so we shift a 1 into the quotient (complemented later). 
; Carry is set. 


6$: | MOV (SP)+,R3 sRESTORE LSWORD OF DIVIDEND. 
MOV (SP)+,R2 sRESTORE MSWORD OF DIVIDEND. 
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3878 
79 


023130 


023132 


023134 
023136 


023150 


023152 
023154 
023156 
023160 
023162 


023164 


06 023166 


023170 


023172 
023174 


023176 
023176 
023202 


023204 


000401 


012626 


006105 
000241 


005105 


000241 
006103 
103402 
160403 
103403 


005205 
001001 
005305 


010501 
000261 


010166 
004736 


000207 


000004 


K8 


SEQ 0101 


;GOTO SHIFT 1 INTO THE QUOTIENT. 


3? 
; It went, so we restore the stack and shift a 0 into quotient (will be 


- UNSDIV - 
BR 10$ 
; complemented later). 
8$: | MOV (SP)+,(SP)« 


Carry is clear. 
;POP THE SAVED DIVIDEND OFF OF THE STACK. 


3° 
; Shift the result of the subtract attempt into the quotient shift reg. 


10$: ROL RS 


;SHIFT NEXT BIT INTO THE INVERTED QUOTIENT. 
;DIVIDE THE 

; DEVISOR BY 

;__2 (UNSIGNED). 

;COUNT THIS SHIFT AND SUBTRACT. 

;LOCP FOR ANOTHER SHIFT & SUB IF NOT DONE. 
;GET QUOTIENT FROM INVERTED QUOTIENT. 


3° 
; Now we either round up or leave quotient alone. 


CLC 

ROR R1 
ROR R4 
DEC RO 
BNE 4$ 
COM R5 
CLC 

ROL R3 
BCS l2$ 
SUB R4,R3 
BCS 14$ 


;CLEAR THE CARRY FOR THE SHIFT OF THE DIVIDEND. 
s;MULTIPLY LSWORD OF DIVIDEND BY 2, MSWORD IS 0. 
;IF CARRY FROM SHIFT, ROUND UP. 

;SUBTRACT DIVISOR FROM DIVIDEND. 

;IF BORROW, DON’T ROUND UP. 


3+ 
; Round up, extra subtract went. 


12$: INC R5 
BNE 14$ 
DEC —_ 8S 


; INCREMENT THE QUOTIENT BY ONE. 
;IF NO OVERFLOW, WE LEAVE THE ROUND UP. 
;DON'T LET ROUNDING CAUSE OVERFLOW. 


; All done, pass quotient and exit. 


i4$: MOV R5,R1 
SEC 
60$: PASS Ri 
MOV 
JSR 


RTS PC 


;PASS QUOTIENT BACK IN Rl. 
; INDICATE NO OVERFLOW. 


;RESTORE GPRS, LEAVE THE FOLLOWING INTACT: 
R1,R1SLOT(SP) 1: UT Ril IN STACK SLOT. 
PC, a(SP)+ RETURN TO PREGOS SUBRT. 

;R1 - i6 BIT, UNSIGNED QUOTIEN T, 
;CARRY - SET INDICATES NO OVERFLOW (SUCCESS). 


i 
a 





a ee ee ee 
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3946 023206 


3957 023244 
3959 023250 


| 
| 3919 
1 
3962 023260 
! 


010002 


010266 
004736 


000207 


160564 


170000 
007777 


002410 
175070 


000006 


- WAIBIC - 


-SBTTL GLOBAL SUBROUTINE - WAIBIC - 
SO RRA R AERA E AREER EERE ERA E RES ERE EERE E EERE EEE EERE EERE EERE EERE 


- Wait For Bit Clear Routine - 


* 


;* This subroutine waits for the specified bit to become clear. If the 
;* specified bit goes to a clear state within the specified time-out 

;* lg @ success indication is returned by this routine. 

;* he last value which is read looking for the condition is returned to 
;* allow the use of this routine to look for destructive read conditions. 
;* 

;* INPUTS: Rl - Time-out value and bit number indication: 

;* Bits 15 thru 12 - Number of bit to test (range 0 thru 15). 
;* Bits 11 thru 0 - Time-out value in milli-seconds (4095 max). 
;* R2 - Address of word containing the bit to test. 

;* MSLCNT. 

;* 

;* OUTPUTS: R2 - The last word which was read to check for the condition. 
3* CARRY - Success flag (CARRY set if bit clr before time-out). 
;* 

3* CALLING SEQUENCE: MOV #130040,R1 :PASS BIT 11 (13 OCTAL) AND 
i* 32 (40 OCTAL) MS DELAY. 

;* MOV #LABEL ,R2 TEST BIT IN WORD AT "LABEL". 
;* JSR PC ,WAIBIC ;WAIT 32 MS FOR BIT 11 TO CLR. 
;* 


is COMMENTS : 


a SUBORDINATE ROUTINES CALLED: MSLGET. 
TSE Terre Tee Terre Te TTT TTT STS TT TTT TTT TIT TTTTTTTIT TTT TTT TTT TTT TTT TT TTT 


WAIBIC:: SAVE ;SAVE CONTENTS OF hy RO THRU RS. 
JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
ee Ser ;SET UP THE ADDRESS PARAMETER FOR MSLGET. 
BIC #170000 ,R1 ;SEPERATE DELAY COUNT OUT OF PASSED PARAMETER. 
BIC #7777,R2 ;SEPERATE LINE NUMBER FIELD OF PASSED PARAM. 
SWAB R2 ;PUT LINE NUMBER FIELD IN LSBYTE. 
ASR R2 ;SHIFT THE LINE NUMBER FIELD INTO THE PROPER 
ASR R2 ; POSITION TO USE IT AS A WORD TABLE OFFSET 
ASR R2 ;__FOR THE TABLE LOOKUP OF THE LINE BIT MAP. 
MOV BITTBL(R2),R2 ;GET BIT MAP OF LINE TO TEST FROM TABLE. 
CLR R3 arya ee THAT THE BIT SHOULD BE CLR. 
JSR PC ,MSLGET WAIT FOR THE BIT TO BE CLR WITHIN TIME-OUT. 
;__ CARRY IS CORRECT UPON MSLGET RETURN 
MOV RO,R2 ;PASS LAST VALUE READ AS OUTPUT PARAMETER. 
60$: PASS R2 sRESTORE GPRS, EXCEPT THE FOLLOWING: 
MOV R2,R2SLOT(SP) PUT R2 IN STACK SLOT. 
JSR PC, a(SP)+ ;RETURN TO PREGOS SUBRT. 


; R2 - LAST VALUE READ LOOKING FOR CONDITION. 
RTS PC ; CARRY - SUCCESS FLAG (SET IF BIT FOUND CLR). 


SEQ 0102 


ee 


oe ere eer eee — 4 


M8 


| CVDHACO DHV11-M FUNC TST PART 1 MACRO Y0S.02 Monday 01-Apr-85 07:47 Page 83 


| SEQ 0103 
| GLOBAL SUBROUTINE - WAIBIS - 
3964 ’ -SBTTL GLOBAL SUBROUTINE - WAIBIS - 
3965 5 Oo EERE REE EE ER ERE EERE EEE SERRE EERE EERE SEES EE EE EEEEEEEE EEE EEEEEEREEREEEE ES 
3966 ;* - Wait For Bit Set Routine - 
3967 ;* This subroutine waits for the specified bit to become set. If the 
3968 ;* specified bit goes to a set state within the specified time-out 
3969 ;* alg os @ success indication is returned by this routine. 
3970 ;* he last value which is read looking for the condition is returned to 
44h) ;* allow the use of this routine to look for destructive read conditions. 
;* 
3973 :* INPUTS: Ri - Time-out value and bit number indication: 
3974 ;* Bits 15 thru 12 - Number of bit to test (range 0 thru 15). 
3975 ;* Bits 11 thru 0 - Time-out value in milli-seconds (4095 max). 
3976 i* 2 - Address of word containing the bit to test. 
3977 :* MSLCNT. 
3978 ;* 
3979 ;* OUTPUTS: R2 - The last word which was read to check for the condition. 
soee :* CARRY - Success flag (CARRY set if bit set before time-out). 
;* 
3982 ;* CALLING SEQUENCE: MOV #130040,R1 ;PASS BIT 11 (13 OCTAL) AND 
3983 ;* ;_ 32 (40 OCTAL) MS DELAY. 
3984 ;* MOV #LABEL ,R2 ;TEST BIT IN WORD AT "LABEL”. 
4944 ;* JSR PC,WAIBIS ;WAIT 32 MS FOR BIT 11 TO SET. 
;* 
aed i COMMENTS : 
3989 “ SUBORDINATE ROUTINES CALLED: MSLGET. 
3990 PEM TEL iLO T TIT irre rE PP Pr rire iit ttt ttt i itt ti ttt ttt TTT TTT TTT TTT TTT TT TTTTTTTT Tt 
3991 
3992 023262 WAIBIS:: SAVE [save CONTENTS OF GPRS RO THRU RS. 
023262 004567 160510 JSR R5,P REGOS ;CALL REGISTER SAVE SUBRT. 
3993 023266 010204 MOV R2,R4 ;SET UP THE ADDRESS PARAMETER FOR MSLGET. 
3994 023270 010102 MOV R1,R2 
3995 023272 042701 170000 BIC #170000,R1 ;SEPERATE DELAY COUNT OUT OF PASSED PARAMETER. 
3996 023276 042702 007777 BIC #7777,R2 og LINE NUMBER FIELD OF PASSED PARAM. 
3997 023302 000302 SWAB R2 PUT LINE NUMBER FIELD IN LSBYTE. 
3998 023304 006202 ASR R2 ;SHIFT THE LINE NUMBER FIELD INTO THE PROPER 
3999 023306 006202 ASR R2 ; POSITION TO USE IT AS A WORD TABLE OFFSET 
4000 023310 006202 ASR R2 ;__FOR THE TABLE LOOKUP OF THE LINE BIT MAP. 
4001 023312 016202 002410 MOV Bs Tree Cae). R2 ;GET BIT MAP OF LINE TO TEST FROM TABLE. 
4002 023316 010203 MOV s;INDICATE THAT THE BIT SHOULD BE SET. 
4003 023320 004767 175014 JSR PC ;MSLGET ;WAIT FOR THE BIT TO BE SET WITHIN TIME-OUT. 
4004 ;__CARRY IS CORRECT UPON MSLGET RETURN. 
4005 023324 010002 MOV RO,R2 ;PASS LAST VALUE READ AS OUTPUT PARAMETER. 
4006 023326 60$: PASS R2 sRESTORE GPRS, EXCEPT THE FOLLOWING: 
023326 010266 000006 MOV R2, R2SLOT( SP) sPUT R2 IN STACK SLOT. 
023332 004736 JSR PC,aCSP)+ RETURN TO PREGOS SUBRT. 
4007 ; R2 - LAST VALUE READ LOOKING FOR CONDITION. 
4008 023334 000207 RTS PC ; CARRY - SUCCESS FLAG (SET IF BIT FOUND SET). 
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40 

4051 023336 
023336 

4052 

4053 


4054 
4055 023342 
4056 


4065 023364 


012701 


160434 


156672 
002410 
000004 





- WOPOR - 


156654 








_C_ Te -—- 


SEQ 0104 
-SBTTL GLOBAL SUBROUTINE - WOPOR - 
foo CRRA EEEEEEEEEEEEEEEEREEEEEEEEEEREEEEERESESEREEEEEE EEE EERE REESE EREREEES 
3 - Write Data Pattern to Device Registers - 
3% This routine writes a rotated data pattern to each of the 6 device 
;* registers of each active line of the device under test. 
;* The date pattern is rotated once after each write to a device register 
;* on ea particular line. The werting data pattern for each line 
:* is rotated once after writing all the registers on a particular 
;* line. This leads to the following data pattern: 
7* Line 0, register 0 - shifted 0 bit positions 
7* Line 0, register 1 - shifted 1 bit position 
7% or 
;* Line 1, register 0 - shifted 1 bit position 
;* Line 2, register 1 - shifted 2 bit positions 
;* 00s 
;* Any bits fields in the device registers that cannot be altered 
;* are masked out of the date pattern before it is written. 
;* This routine will use either MOV, MOVB, BIS, BISB, BIC, or BICB 
;* instructions. The upper or lower byte can be specified for writing. 
;* 
3* INPUTS R2 - Used to pass in the data pattern to be rotated & written. 
34 R3 - Byte indicator (- => lo byte, + => hi byte, 0 => both). 
;* R4 - Operation type indicator (- => BIC, + => BIS, 0 => MOV). 
;* ACTLNS - Bit map of the active lines on the device under test. 
;* CSRA - Contains the CSR address of the Device under test. 
;* DRADRT - Base address of device register address table. 
:a LPRO - Equated to LPR reg offset from device CSR address. 
;* - Number of lines on the device under test. 
3% TXBFCO - Equated to TBUFFCT reg offset from device CSR address. 
:* UNBTTB - Base address of the unused bit table. 
;* 
3* OUTPUTS: Device registers on all active device lines are modified. 
3% 
3* CALLING SEQUENCE: JSR PC ,WOPDR 
;* 
3* COMMENTS: This routine does not write any data to the TX.CHAR registers. 
;* The CSR is cleared except for the IND.ADR.REG field. 
;* 
;* SUBORDINATE ROUTINES CALLED: ROLDAP. 
PME TILT TTT T TT TTT Tr PPP rr iri tri titi tit tt ttt TIT ttt TT TTT ttt TTTiTTrTTTT TT TTT 
WOPOR:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
3* 
; Set up outer loop which writes the data pattern to each line's registers 
ge 
CLR RS ;CLEAR LINE COUNTER TO SELECT LINE 0. 
3° 
; The outer loop follows. Each pass through this loop writes date to all of 
; the device registers for a particular line if it is active. 
2$ MOV R2,R4 sSAVE THE OUTER LOOP DATA PATTERN. 
MOV RS,@CSRA ;SET CSR IND.ADR.REG FIELD TO THIS LINE. 
ASL ;TURN LINE NUMBER INTO A WORD CFFSET. 
BIT BITTELCRS),ACTLNS 
BEQ 20$ sLINE ACTIVE? NO, SKIP THIS LINE. 
MOV #LPRO,R1 sYES, INITIALIZE THE REGISTER OFFSET. 


ee 
eo 
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023370 


023524 


023526 
023526 
023530 


002707 


004736 
000207 


002264 
002244 
000010 


000010 


000012 


000012 


176074 
000002 
000016 


176054 


000010 


Each pass through this loop writes data to a 


;CLEAR BIT FIELDS FOR UNUSED REGISTER BITS. 
;GET THE ADDRESS OF THE DEVICE REGISTER. 


ATOR. 
; WORD ACCESS? ves . GO PERFORM WORD ACCESS. 
specified byte of the specified register. 
iNO, CHECK THE ACCESS TYPE INDICATOR. 

USE BIC? YES, GO PERFORM BICB INSTRUCTION. 
SUSE MOV? YES, GO PERFORM MOVB INSTRUCTION. 
s;NEITHER. PERFORM BISB ACCESS TO REGISTER. 
;PERFORM BICB ACCESS TO REGISTER. 


;PERFORM MOVB ACCESS TO REGISTER. 


specified register. 

;CHECK THE ACCESS TYPE INDICATOR 

;USE BIC? YES, GO PERFORM BIC INSTRUCTION. 
;USE MOV? YES, GO PERFORM MOV INSTRUCTION. 
;NEITHER. PERFORM BIS ACCESS TO REGISTER. 
;PERFORM BIC ACCESS TO REGISTER. 


;PERFORM MOV ACCESS TO REGISTER. 


; Prepare the date pattern and offset for the next register on this line. 


3° 
. The inner loop follows. 
; device register. 
4$ MOV R2,RO 
BIC UNBTTBC(R1), 
MOV DRADRT(R1), 
TST R3SLOTC( SP) 
BLE 6$ 
INC R3 
SWAB RO 
6$: TST R3SLOT( SP) 
BEQ 12$ 
sPerform byte access to the 
TST R4SLOT(SP) 
BMI 8$ 
BEQ 10$ 
BISB RO,(R3) 
BR 18$ 
8$: BICB RO,(R3) 
BR 18$ 
10$: MOVB RO,(R3) 
BR 18$ 
:Perform word access to the 
12$ TST R4SLOT( SP) 
BMI 14$ 
BEQ 16$ 
BIS RO,(R3) 
BR 18$ 
14$ BIC RO,(R3) 
BR 18$ 
16$: MOV RO, (R3) 
18$: JSR “. ROLDAP 
ADD 
CMP Ri. " ¢TXBFCO 
BLE 4$ 
; Back into the 
20$: MOV R4,R2 
JSR PC ,ROLDAP 
ASR RS 
INC RS 
CMP RS, #NUMLNS 
BLT es 
60$: PASS 
JSR 
RTS PC 


outer loop. Now set up for next line. 


KS LT 


sROTATE DATA PATTERN LEFT, NOT THROUGH CARRY. 
;INCREMENT OFFSET FOR NEXT REGISTER. 

sCOMPARE REG OFFSET WITH OFFSET OF LAST REG. 
;LOOP IF NOT ALL REG DONE FOR THIS LINE. 


Loop if not done. 


;SET UP TO ROTATE He. 3 — PATTERN. 

;ROTATE THE DATA PATTERN 

scent BACK TO LINE NUMBER FROM WORD OFFSET. 
sCOUNT THIS LINE. 

:CO MPARE LINE COUNT WITH NUMBER OF LINES. 
;LOOP IF SOME LINES NOT DONE. 


;RESTORE GPRS. 


PC,a(SP)- s;RETURN TO PREGOS SUBRT. 


rie Se sabe 


SEQ 0105 


C9 
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4159 023560 000207 RTS PC 


SEQ 0106 =! 
, GLOBAL SUBROUTINE - WTWLNC - | 
| 4122 -SBTTL GLOBAL SUBROUTINE - WTWLNC - 
4123 OME DIL ITI TPIT TTT irr rrr irri iii ti tit i ttt tt tee TTT TTT TTT TTT TTT TTT TTT TT TT TT Tt 
4124 ;* - Line Control Register Setup Routine - 
4125 ;* This subroutine is used to set the Device Under Test (DUT) Line 
4126 ;* Control Registers (LNCTRL) to the specified state. Only the LNCTRLS 
rt 3* for the specified lines are altered. 
7* 
4129 ;* INPUTS: RO - New line parameters. | 
4130 3* RS - Bit map of lines to be altered. | 
4131 7* CSRA - Contains address of the DUT CSR. 
4132 :* IESTAT - Contains the current state of the TX and RX interrupt 
4133 ;* enable bits in the CSR. 
4138 ;* LNCTRA - Contains address of the DUT LNCTRL registers. 
;* 
ais? 3* OUTPUTS: LNCTRL - Specified DUT Line Control Registers are altered. 
;* 
aise ;* CALLING SEQUENCE: JSR PC, WTWLNC 
;* 
4140 ;* COMMENTS: 
4141 i* 
4142 ;* SUBORDINATE ROUTINES CALLED: ALTFLD. 
4143 PPE TT TPIT ITI fir Ti iit iti ttti tite tte tT TTT TTT TT TT TTT TT TTT TT TTT TTT TTTTTTTT TT 
4144 
4145 023532 WTWLNC:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
a186 023532 004567 160240 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
sas ; Set up the parameters for the call to ALTFL.D. 
4149 023536 016701 156512 : MOV LNCTRA,R1 ;SET UP THE REGISTER ADDRESS PARAMETER. 
4150 023542 010002 MOV RO,R2 ;SET UP THE DESIRED REGISTER CONTENTS. 
4151 023544 010503 MOV R5,R3 ;SET UP THE BIT MAP OF LINES TO ALTER. 
nine 023546 012704 177777 MOV #-1,R4 ;SELECT ALL REGISTER BITS TO BE ALTERED. 
alee ; Call the subroutine which alters the register contents. 
41 = 
aie 023552 004767 174052 JSR PC,ALTFLD ;ALTER THE REGISTER CONTENTS. 
1 
4158 023556 60$: PASS sRESTORE GPRS. 
023556 004736 JSR PC,a(SP)- sRETURN TO PREGOS SUBRT. 
' 
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4 

4190 023562 
023562 

4191 

4192 

4193 

4194 023566 

4195 023572 

4196 

4197 


4198 

4199 023576 

4200 

4201 023602 
023602 

4202 023604 


004567 


012703 
012704 


004767 


004736 
000207 


160210 


000377 
177777 


174026 


D9 
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SEQ 0107 


-SBTTL GLOBAL SUBROUTINE - WTWLNS - 


EERE SEER ERE ERE EEE SEES ERE ERERER ERE ERE EEE ER EEAE EE EEEEEEEEEEEEERERERE 


i* - Write Word to all Lines routine - 

;* This subroutine writes a specified word to the specified DHV device 
i* register for each of the DHV lines. It could be used to clear all 
;* of the LNCTRL registers or to initialize all of the LPR registers to 
3* the same parameters. 

;* 

3* INPUTS: Rl - Address of the specified registers. 

3* R2 - Word to write into the specified registers. 

3* IESTAT - Saved states of the I[X.IE and RX.IE bits. 

:* ~~ - Equated to bit map of lines on device (8 fer DHV11). 
7* > 

;* 

;* OUTPUTS: DEVICE REGISTERS - Specified registers given new value. 

;* CSR IND.ADR.REG field - Destroyed. 

7* CSR Interrupt Enable bits - Set to states in IESTAT. 

3;* 

3* CALLING SEQUENCE: JSR PC,WTWLNS 

7* 

3* COMMENTS: Note that the specified registers for all lines are altered 
7* oy this routine. This routine should NOT be used to alter 
7* the states of partial register fields or to alter a register 
;* for fewer than all of the lines. 

:* The specified registers are read before being written. 

;* 


;* SUBROUTINES CALLED: ALTFLD. 
SERRE EERE EEE REAR E EEE AE EERE EEE ERA E EERE EERE EEE EERE EERE EEE EEE EEE EE 


WTWLNS:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 


; Set up the bit map of lines to change and mask of bits to alter parameters. 


% MOV #MAPLNS ,R3 ;GET THE BIT MAP OF LINES TO CHANGE. 
MOV #-1,R4 ;INDICATE ALL 16 BITS TO BE CHANGED. 


; Call the subroutine to write the specified registers. 
JSR PC,ALTFLD ;CHANGE THE REGISTERS. 


60$: PASS ;RESTORE GPRS. 
JSR PC, a(SP )+ 
RTS PC 


sRETURN TO PREGOS SUBRT. 


———— | 
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, GLOBAL SUBROUTINE 


4227 023606 
023606 


4231 023612 
4232 023616 
4233 023620 
4234 023622 


4238 023626 
4240 023632 

023632 
4241 023634 


004567 


016701 
010002 
010503 
012704 


004767 


004736 
000207 


160164 


156432 


177777 


173776 


cy 


SEQ 0108 


-SBTTL GLOBAL SUBROUTINE - WTWLPR - 
5 Oo ERE REE EERE EEE EERE ER ER EERE EERE EERE EEE E AER EER EREEEERE REESE ERROR EES 


:* - Line Pafameter Register Setup Routine - 

;* This subroutine is used to set the Device Under Test (DUT) Line 

;* Parameter Registers (LPR) to the specified state. Only the LPRs for 
74 the specified lines are altered. 

;* 

;* INPUTS: RO - New line parameters. 

;* RS - Bit map of lines to be altered. 

7* CSRA - Contains address of the DUT CSR. 

3* IESTAT - Contains the current state of the TX and RX interrupt 
7* enable bits in the CSR. 

7* LPRA - Contains address of the DUT LPR. 

3;* 

;* OUTPUTS: LPR - Specified DUT Line Paramter Registers are altered. 

;* 

;* CALLING SEQUENCE: JSR PC,WTWLPR 

;* 

>* COMMENTS: 


;* SUBORDINATE ROUTINES CALLED: ALTFLD. 
t-- EERE EERE REAR ERE EERE REA EERE EERE EERE EAE ERE EEE EEA EEEEREEEEEEEEEEREEEE 


WTt PR:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 


: Set up the parameters for the call to ALTFLD. 
MOV LPRA,R1 ;SET UP THE REGISTER ADDRESS PARAMETER. 


MOV RO,R2 sSET UP THE DESIRED REGISTER CONTENTS. 
MOV R5,R3 ;SET UP THE BIT MAP OF LINES TO ALTER. 
MOV #-1,R4 ;SELECT ALL REGISTER BITS TO BE ALTERED. 


; Call the subroutine which alters the register contents. 
JSR PC,ALTFLD ;ALTER THE REGISTER CONTENTS. 


60$: PASS ;RESTORE GPRS. 
JSR PC,a(SP)-+ 
RTS PC 


RETURN TO PREGOS SUBRT. 


' 
ae 


FQ 
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| 
| 4243 


4264 023636 
023636 
4265 023642 
4266 023646 
4267 023650 
4268 023652 
4269 023654 
4270 023660 
023660 
4271 023662 


004567 
016701 
005201 
102001 
005301 
010167 


004736 
000002 


160134 
156466 


156454 


- CACHRX - 


.SBTTL INTERRUPT SERVICE ROUTINE - CACHRX - 

ESM LITiIi titi titi ti tiiiiititititiiiiiiiiiiiiiiiiiiiiiiiiiiiitititttttrt tt ttt tT 
- Catch Receiver interrupt. 

This routine is used in several tests,to log a count of the 

number of receiver interupts that occur. 


INPUTS: CSRA - Contains the address of the CSR. 
RXINTC - Holds the count of the number of RX interrupts 
that occurred. 


OUTPUTS: RXINTC - Contains the updated interrupt count. 


CALLING SEQUENCE: Put the address of the label CACHRX in the vector 
location. 


HRRHHERHEHEH EEE EH 


6 COMMENTS: 


. SUBORDINATE ROUTINES CALLED: none 
Terr reer errr r re Terr rT err errr TTT Te TTT TT Te TTT TT TTT TTT TTT TT TTT TTT TTT TT TT 


CACHRX: : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV RXINTC,R1 ;GET THE RECEIVER INTERRUPT COUNT 
INC R1 ; INCREMENT THE COUNT 
BVC 2$ ;BRANCH IF NO OVERFLOW OCCURRED 
DEC R1 sRESET THE COUNT TO 177777 
2s: MOV R1,RXINTC ;SAVE NEW COUNT VALUE 
60$: PASS ;RESTORE GPRS. 
_ JSP. PC, a(SP)+ ;RETURN TO PREGOS SUBRT. 


SEQ 0109 


69 
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4294 023664 
023664 
4295 023670 
4296 023674 
4297 023676 
4298 023700 
4299 023702 
4300 023706 
023706 
4301 023710 


004567 160106 


016701 
005201 
102001 
005301 
010167 


004736 
000002 


156444 


156432 


CACHTX SEQ 0110 


-SBTTL INTERRUPT SERVICE ROUTINE - CACHTX - 
[04 adda o ogo dada ig a Oo io iii toi iofok kit i iok 


;* - Catch Transmiter interrupt. 

;* This routine is used in several tests,to log a count of the 

3* number of transmission interrupts that occur. 

;* 

;* INPUTS: CSRA - Contains the address of the CSR. 

;* TXINTC - Holds the count of the number of TX interrupts 
3* that occurred. 

3;* 

;* OUTPUTS: TXINTC - Contains the updated interrupt count. 

;* 

> 

;* CALLING SEQUENCE: Put the address of the label CACHTX in the vector 
3* location. 

;* 

i* COMMENTS: 


ms SUBORDINATE ROUTINES CALLED: none 
po aidadddd adoro a odoieioioei oie iaioiotininiiotiniiotiotintiotiniocioiintiieicciciccec 


CACHTX: : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV TXINTC,R1 ;GET THE TRANSMISSION INTERRUPT COUNT 
INC Ri ; INCREMENT THE COUNT 
BVC 2s ;BRANCH IF NO OVERFLOW OCCURRED 
DEC Ri ;RESET THE COUNT TO 177777 
2s: MOV R1, TXINTC ;SAVE NEW COUNT VALUE 
60$: PASS ;RESTORE GPRS. 
art JSR PC, a(SP )+ s;RETURN TO PREGOS SUBRT. 


ee 


H9 
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4338 023760 000002 60$: RTI 


SEQ 0111 
| INTERRUPT SERVICE ROUTINE - CLKINT - 
4303 .SBTTL INTERRUPT SERVICE ROUTINE - CLKINT - 
| 4304 POM tit ti titttt ttt tt ttt ttt tit ttt Tet tt ttt TTT Tt TTT ttt TTT TT TT LTT LTT TTT TTT 
4305 ;* This routine is executed CLKHRZ times per second. It decrements the 
aac? ;* two timer counters down to zero. 
;* 
4308 ;* INPUTS: TIMER1 - Timer counter #1. 
4309 ;* TIMER2 - Timer counter #2. 
aut ;* TIMERS - Timer counter for call of BREAK macro. 
;* 
rity ;* OUTPUTS: The 2 timer counters are decremented if they are not zero. 
;* 
4314 3* CALLING SEQUENCE: Put #CLKINT in the clock interrupt vector slot. 
4315 i* Put the desired time period (seconds times CLKHRZ) in 
4316 :* either TIMER1 or TIMER? and poll the respective timer 
asia ;* counter to detect its going to 0 on time-out. 
;* 
4319 ;* COMMENTS: The 2 counters will not wraparound but will stop at 0. This 
4320 i* allows the detection of a time-out any time after the time-out 
a553 :* has occurred until the timer counter is set to another value. 
;* 
4323 ;* SUBORDINATE ROUTINES CALLED: None. 
4324 Petit ttt ttt tt titi ttt ttt ttt ttt Tit T TT ttt tT TTT TTT TT TTT TTT TLL 
4325 
4326 023712 005767 156446 CLKINT:: TST TIMER1 ;CHECK FOR TIMER1 AT ZERO. 
4327 023716 001402 BEQ 2s ; BRANCH TO LEAVE IT AT ZERO IF IT IS ZERO. 
4328 023720 005367 156440 DEC TIMER1 ;DECREMENT TIME COUNT. 
4329 023724 005767 156436 2s: TST TIMER? ;CHECK FOR TIMER2 AT ZERO. 
4330 023730 001402 BEQ 4$ ; BRANCH TO LEAVE IT ALONE IF IT’S ALREADY ZERO. 
4331 023732 005367 156430 DEC TIMER? ;DECREMENT TIME COUNT. 
4332 023736 005367 156426 4$: DEC TIMER3 ;DECREMENT THE BREAK COUNT. 
4333 023742 001006 BNE 60$ ;EXIT IF NOT TIME TO CALL BREAK. 
4334 023744 016767 156422 156416 MOV BCOUNT , TIMERS ;SET UP TIME TILL NEXT BREAK. 
4335 023752 010046 MOV RO, -(SP) ; SAVE CONTENTS OF RO FROM BREAK MACRO. 
4336 023754 BREAK ;CHECK FOR OPERATOR CONTROL/C. 
023754 104422 TRAP CS$BRK 
4337 023756 012600 MOV (SP)+,RO sRESTORE CONTENTS OF RO. 
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023762 
023762 
023766 
023772 
023776 
024000 
024002 
024006 
024012 
024016 
024024 
024026 


024032 
024040 
024042 
024046 
024046 
024050 


004567 
017700 
016701 
005201 
001402 
010167 
016701 
052701 
032767 
001402 
052701 


026767 
003002 
010167 


004736 
000002 


160010 
156254 
156336 


156326 
156324 
000001 
000001 


040000 


156276 
156270 





L3 


SEQ 0112 


- RXBRRT - 


156316 


153750 


.SBTTL INTERUPT SERVICE ROUTINE - RXBRRT - 

5 RRR RRR EERE REESE EERE EERE EE ER EEEEEEEEEEEEEE EERE EERE EE 
:* - BR Level Test Receive Interrupt Service Routine - : 

This service routine handles Receive Interrupts during the Interrupt 

BR Level Test. This routine counts the interrupt and sets a flag 

to indicate that the interrupt has occurred. It also checks the 

flag which indicates that a IX interrupt has occurred. If the TX 
interrupt flag is set, this routine sets an interrupt order error 

flag indicating that a transmit interrupt was serviced before a 
simultaneous receive interrupt. 


INPUTS: RXINTC - Holds the count of the number of RX interupts. 
RXINTF - RX Interrupt flags. 


;* OUTPUTS: RXINTC - Contains the updated interupt count. 
; RXINTF - RX Int flags: 
(Bit 0 set, bit 14 set if TXINTF bit 0 is set.) 


;* CALLING SEQUENCE: Put the address of the label RXBRRT in the vector 
; location. 


HHHHHHHHRHHRHHHHE HEH 


;* COMMENTS: NOTE: The FIFO is purged by this routine. 
;* 


, 
;* SUBORDINATE ROUTINES CALLED: None. 
Tella hah teaheetedaeteididibbhb hh hhi ppp i ptettrtit iit iit t ttt tt i ttt teeth at) 


RXBRRT:: SAVE * ge Bai OF GPRS RO THRU RS. 


JSR RS,PR ;CALL REGISTER SAVE SUBRT. 
MOV ARBUFA,RO ;READ THE CHAR OUT OF THE FIFO. 
MOV RXINTC,R1 ;GET THE INTERUPT COUNT. 
INC Ri ; INCREMENT THE COUNT. 
BEQ 2s sBYPASS UPDATING COUNT IF OVERFLOW OCCURRED. 
MOV R1,RXINTC ;SAVE NEW COUNT VALUE. 
2s: MOV RXINTF ,R1 ;GET THE RX INTERRUPT FLAGS. 
BIS #BITO,R1 ;SET THE RX INTERRUPT HAS OCCURRED FLAG. 
BIT #BITO, TXINTF ;TEST THE "TX INT HAS OCCURRED” FLAG. 
BEQ 4$ ;SKIP SETTING ERROR FLAG IF NO TX INT. 
BIS #BIT14,R1 ;SET THE INTERRUPT ORDER ERROR FLAG. 
; 8 FIFO codes will cause 8 interrupts, after these 8 codes we don’t want 
; to check the interrupt order, because perhaps a BMP code has come in 
; between the servicing of the 8 FIFO code interrupts and the servicing 
; of one of the TX interrupts. 
4$: CMP RXINTC,NUMLNS ;TEST FOR ALL SELFTEST CODE INTS DONE. 
BGT 60$ ;SKIP UPDATING RX INT FLAGS IF EXTRA RX INTS. 
MOV R1,RXINTF ;UPDATE THE RX INTERRUPT FLAGS. 
60$: PASS ;RESTORE GPRS. 
we JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 


a ee ee ee 


one ee ee ee eee = 


LTT ts t= ene mee 
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INTERUPT SERVICE ROUTINE 


4419 024052 

024052 
4420 024056 
4421 024064 
4422 024066 
4423 024074 
4424 024100 
4425 024102 
4426 024104 
4427 024110 
4428 024114 
4429 024120 
4430 024124 
4431 024126 
4432 024132 


024132 
4433 024134 


004567 
032777 
001003 
052767 
016701 
005201 
001402 
010167 
016702 
017722 
020267 
103002 
010267 


004736 
000002 


157720 
000200 


100000 
156234 


156224 
156210 
156126 
157602 


156172 


- RXINPT - 


-SBTTL INTERUPT SERVICE ROUTINE - RXINPT - 

POMEL EL ti Lif TTT ee TPP PPP rrr titer titi ttt ttt ttt TTT TTT TT TTT TTT TTT TTT TTT TTT TT 
- Receive Character Input Interrupt Service Routine - 

This service routine inputs a character from the DUT and loads the 

char (complete with status flags) into a receive char buffer in 


156160 
156242 


;* 


HHRKHKHHHHHHHHRHHHRHHEHRHRHEH HE HH 





memory. 


JI 


SEQ 0113 


he interrupt is also counted. The receive char buffer is 


monitored to ensure that it does not overflow. 


INPUTS: 


OUTPUTS: 


COMMENTS: 


BUFEND - Labels the end of the host —, buffer. 
BUFPTR - Contains address of next free buffer location. 
CSRA - Contains the address of the DUT CSR. 

RBUFA - Contains the address of the RBUF DUT register. 
RXINTC - Holds the count of the number of RX interupts. 
RXINTF - RX Interrupt flags. 


BUFPTR - Contains updated address of next free buffer location. 
RXINTC - Contains the updated interupt count. 
RXINTF - RX Int flags (bit 15 set if RX.DATA.AVAIL is clear). 


CALLING SEQUENCE: Put the address of the label RXINPT in the vector 


location. 


In case of overflow of the —- buffer, BUFPTR will be 
maintained equal to BUFEND and the word at BURFPTR will be 
the last word read from the DUT FIFO. 

NOTE: This routine can destroy TX.ACTIONS by reading the CSR. 


;* SUBORDINATE ROUTINES CALLED: None. 
lla din hbibhibbb hah e thr itpett titi itt iti tit t titi ttt itt T TTT TTT TTT Tet 


RXINPT: : 


2s: 


4$: 


60$: 


SAVE 


;SAVE CONTENTS OF GPRS RO THRU RS. 

JSR RS, PREGOS ;CALL_ REGISTER SAVE SUBRT. 
#BIT7,@CSRA ;TEST RX.DATA.AVAIL BIT OF THE CSR (READS CSR). 
2$ ;BRANCH AROUND SETTING FLAG IF BIT IS SET. 
#BITIS,RXINTF  ;SET THE cienet tae FLAG. 


RXINTC,R1 ;GET THE INTERUPT COUNT. 

Ri s INCREMENT THE COUNT. 

4$ sBYPASS UPDATING COUNT IF OVERFLOW OCCURRED. 
R1,RXINTC ;SAVE NEW COUNT VALUE. 

BUFPTR,R2 ;GET THE POINTER TO NEXT FREE BUFFER WORD. 
ARBUFA, (R2)+ sREAD A CHAR FROM THE FIFO INTO BUFFER. 
R2,BUFEND ;TEST FOR POINTER BEYOND END OF BUFFER. 

60$ sSKIP_THE PTR UPDATE IF PTR OUT OF BOUNDS. 
R2,BUFPTR sUPDATE THE BUFFER POINTER. 


;RESTORE GPRS. 


JSR PC,a(SP)+ sRETURN TO PREGOS SUBRT. 
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4459 024136 
4469 024142 
4461 024144 
4462 024150 
4463 024156 


ee ee eee 


021627 
001402 
000177 
052767 
000002 


020140 


156174 
100000 156170 





EE A —_- 





K9 


SEQ 0114 

- TP4RTN - 

-SBTTL GLOBAL TRAP SERVICE ROUTINE - TP4RTN - 

REE REE EAE E EERE EERE EEE EERE EERE EERE EERE REAR EERE REREEEEEEEE EE RRR EEE ES 

:* Bus Time-out Trap (004 trap) Service Routine - 

;* This routine is used during the Device Register Address Access Test. 

i* It determines if the 004 a was caused by an “expected” error or 

;* not by examining the return PC value on the stack. If the trap is 

;* unexpected, this routine jumps to the normal Diagnostic Supervisor 

;* 004 trap handling routine. 

;* 

:* INPUTS: SP _- Points to the PC where the trap occured. 

3* ADRPTR - Label at the address where "expected" traps occur. 

;* TP4FLG - 004 trap flags. 

;* 

;* OUTPUTS: TP4FLG - Bit 15 is set if “expected” trap occured. 

;* 

;* CALLING SEQUENCE: Put address pointed to by TP4RTN in 004 vector. 

i* Occurence of 004 trap vectors to this routine. 

7* 

>* COMMENTS: po 004 trap which occurs at an address other than that labeled 

:* ADRPTR will be handled by the normal 004 trap service routine. 

* 


; 
;* SUBORDINATE ROUTINES CALLED: None. 
5 RR EKER RRR EEE EEE REAR EE REE E EERE ARERR ARERR EERE EERE EE EERE EEE 


TP4RTN: : CMP (SP), #ADRPTR ;COMPARE EXPECTED ADR AGAINST TRAP RET PC. 
BEQ 2$ ;IF THEY MATCH, CONTINUE THIS ROUTINE. 


JMP aTP4VvEC ;IF_NOT,JUMP TO NORMAL 004 TRAP SERVICE RTN. 
2s: BIS #BIT15,TP4FLG ;SET THE 004 TRAP OCCURED FLAG. 
RTI ;ALL DONE, GO BACK TO THE TEST. 


' 
ee | 


llr 


me ee ee ee 


2 
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: 


0. 
4502 024232 


004567 
016701 
005201 
102001 
005301 
010167 
016703 
017702 
100402 
052703 
052703 
010367 


004736 
000002 


157612 
156150 


156136 
156134 
156032 


100000 
000001 
156112 


E 
- TXINTR - ~~ 


-SBTTL INTERUPT SERVICE ROUTINE - TXINTR - 
eM Titi iti iiitittitiiiitiitittiiiittititiiiiiiiiiiiitiiiiitittiiti ttt tt ttt ttt. 
- Transmit Interrupt Service Routine - 
This routine handles a transmit interrupt from the Device Under Test 
(DUT) by ee the interrupt and reading the DUT CSR to clear the 
interrupt reques This routine also sets a 7 to indicate thet 

e 


e TX interrupt has occurred and sets a fl if the TX.ACTION bit is 
not set in the read contents of the DUT CSR. 
INPUTS: CSRA - Contains the address of the CSR. 


TXINTC - Holds the count of the number of TX interupts. 
TXINTF - TX Interrupt flags. 


OUTPUTS: TXINTC - Contains the updated TX interupt cou 
TXINTF - TX Int flags (bit 0 set, bit 15 set TF TX.ACTION clr). 


CALLING SEQUENCE: Put the address of the label TXINTR in the vector 
location. 


COMMENTS : 


;* SUBORDINATE ROUTINES CALLED: none 
REE EERE EERE EERE ERE E EEE E EERE REAR EERE REESE EEE EEE EEE EE EEE ES 


SHR ER HEHE EHH EH 


TXINTR:: SAVE bap! CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL ——- SAVE SUBRT. 
MOV TXINTC,R1 ;GET THE TX INTERUPT COUN 
INC R1 ;INCREMENT THE COUNT. 
BVC 2$ ;BRANCH IF NO OVERFLOW ay. 
DEC R1 sRESET THE ony beg 177777 
2$: MOV R1,TXINTC ;SAVE_NEW COUNT VALUE. 
MOV TXINTF ,R3 ;GET THE TX INTERRUPT FLAGS. 
MOV aCSRA ,R2 sREAD THE CSR 
BMI 4$ ;SKIP SETTING OF FLAG IF TX.ACTION IS SET. 
BIS #BIT15,R3 ;SET THE TX.ACTION CLEAR FLAG. 
4$: BIS #BITO,R3 s;SET THE TX INT HAS OCCURRED FLAG. 
MOV R3, TXINTF UPDATE THE TX INTERRUPT FLAGS. 
60$: PASS ;RESTORE GPRS. 
ove JSR PC,@(SP)+ s;RETURN TO PREGOS SUBRT. 
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4519 
4520 024234 
024234 

4521 
4522 024234 
024234 
5 024236 


4524 
4525 
4526 024240 


024240 
024240 


ee ee 


000167 
000000 


104425 


- TXINTR - 


VOHA .RPT 


| 
SEQ 0116 ! 


semen 


" t 
iiiaiaaadaaddaadiaaddaaddaaddaaasanaiaddiaadiaadiaadiaadsadacmanmaacnacnaceand 


-SBTTL REPORT CODING SECTION 


;*¢ 
; THE REPORT CODING SECTION CONTAINS THE 
; "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT 


EXIT 


-EVEN 
ENDRPT 


RPT 


L$RPT:: 
«WORD J$JMP 
-WORD L10017-2-. 
! 
| 


L10017: 
TRAP C$RPT 
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| PROTECTION TABLE 


024242 
024242 


024242 
024244 
024246 


024250 


177777 
177777 
177777 








SEQ 0117 


| 
-SBTTL PROTECTION TABLE 
Fh al aah alah alah alalalalalelalalataieiaataiainaigiainiainiainiiniaaiainisinisiniginiginiginiginisisigeipnipinteeaneteuititvetiusiet TT} 


; FVTSKL4.P11 
; SESAAAAAASSSSLSKKKKAAK KKK SAKA AANA ARKANSAS ATTN 


; THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 
| 


BGNPROT 

L$PROT:: 
-1 ;OFFSET INTO P-TABLE FOR CSR ADDRESS 
a ;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
-i ;OFFSET INTO P-TABLE FOR DRIVE NUMBER 
ENDPROT 








oo <omo ee ee ee ee 
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| SEQ O118_ =! 
a TABLE 
4565 
4566 h alalahatalalatalalatalalaialalaialaiaiainiaisiniaisiniaisiniataininiainisieinisisisisisininiininnwinpiin tte ret T TTT ttt TTT TTC TTT TPR EET 
4567 3 
4568 ; VOHA . INi 
4569 ; 
pels 3 Leda ahatatalahatalalahaalalaininialainisinininiaiaininiaininiatatsininistsininisislsinislsisennui iri ent Tite ttt TTT TTT TT TT Eee 
4572 | 
4573 
pe de -SBTTL INITIALIZE SECTION 
4576 FESS SSS SESH SEES ESE EEKE KSEE ESESES SESE ESESE SESE ESESE KE SEEEESESESESESEEEE 
4577 ;* This section contains the code which is performed at the beginning of 
4578 i* each pass or after a continue command. 
ad ;* This code performs the following actions: 
;* 
4581 i* Moves the information held in the hardware P-table into the global 
4582 3* dete area. 
4583 ;* 
pions FCPS SSS SESS SESS SESS SESE SEE SEE SEE ASSESS SESE SEES ESSERE EERE EEE EERE SEE EEE ESSE 
458 3-° 
4586 024250 BGNINIT H 
024250 L$INIT:: 
4587 ;SEE IF PROGRAM JUST STARTED, BR IF YES 
4588 024250 READEF EF .START 
024250 012700 000040 MOV EF .START,RO 
024254 104447 TRAP CS$REFG 
4589 024256 BCOMPLETE NEWSTA 
024256 103416 BCS NEWSTA 
4590 ;SEE IF PROGRAM JUST RESTARTED, BR IF YES 
4591 024260 READEF #@EF .RESTART 
024260 012700 000037 MOV EF RESTART RO 
024264 104447 TRAP CS$REFG 
4592 024266 ‘ BCOMPLETE NEWRES 
024266 103556 BCS NEWRES 
4593 ;SEE IF THIS IS A NEW PASS, BR IF YES 
4594 024270 READEF #EF .NEW 
024270 012700 000035 MOV EF .NEW,RO 
024274 104447 TRAP CSREFG 
4595 024276 BCOMPLETE NEWPAS 
024276 103555 BCS NEWPAS 
4596 ;SEE IF PROGRAM WAS JUST CONTINUED 
4597 024300 READEF #E€F .CONTINUE 
024300 012700 000036 MOV #EF . CONTINUE ,RO 
024304 104447 TRAP CS$REFG 
4598 024306 BNCOMPLETE GETPRM 
024306 103161 BCC GETPRM 
4599 024310 000167 000552 JMP ENDIT 
4600 024314 NEWSTA: 
4601 024314 BRESET ;RESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 
| tie 024314 104433 ' TRAP —- C$RESET | 
ai ; ; Set up for Line Time Clock interrupts. | 
s- 
| 4605 024316 : CLOCK L,R1 ;GET THE CLOCK PARAMETERS. | 
024316 012700 000114 MOV #'L,RO 
i 


024322 104462 TRAP CsCLc« 


‘ 
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SEQ 0119 
_ INITIALIZE SECTION 
| 024324 010001 MOV RO,R1 

4606 024326 012167 156022 MOV (R1)+,CLKCSR ;STORE CLOCK CSR ADDRESS. 

4607 024332 012167 156020 MOV (R1)+,CLKBRL ;STORE CLOCK BUS REQ INT LEVEL. 

4608 024336 012167 156016 MOV (R1)+,CLKVEC ;STORE CLOCK INTERRUPT VECTOR. 

4609 024342 012167 156014 MOV (R1)+,CLKHRZ ;STORE CLOCK FREQUENCY. 

4610 024346 026727 156010 000062 CMP CLKHRZ, #50. ;TEST FOR SOHZ LINE FREQUENCY. 

4611 024354 001004 BNE 2s ;BRANCH IF CLOCK IS NOT SOHZ. 

4612 024356 012767 000024 156010 MOV #20. ,MSTICK s INDICATE 20MS PER CLOCK TICK. 

4613 024364 000403 BR 4$ 

4614 024366 012767 000021 156000 23: MOV #17. ,MSTICK sINDICATE 17 MS PER CLOCK TICK. 

4615 024374 4$: SETVEC CLKVEC,#CLKINT,#PRI06 ;INITIALIZE CLOCK INTERRUPT VECTOR. 
024374 012746 000300 MOV #PRI06, -(SP) 
024400 012746 023712 MOV @CLKINT, - (SP) 
024404 016746 155750 MOV CLKVEC, -(SP) 
024410 012746 000003 MOV #3,-(SP) 
024414 104437 TRAP C$SVEC 
024416 062706 000010 ADD #10,SP 

4616 024422 016700 155734 MOV alas ; INITIALIZE THE _ COUNT 

4617 024426 006200 ASR ; TO age A BREAK 

4618 024430 010067 155736 MOV 0, BCOUNT ; EVERY 1/2 SECOND. i 

4619 024434 SETPRI BPRIOS ;ALLOW CLOCK INTERRUPTS DISABLE OTHERS. 
024434 012700 000240 MOV #PRIOS,RO 

4620 024440 104441 TRAP C$SPRI 

6 

4621 ; Enable the Line Time Clock (LTC) checking to make sure that the CSR 

4622 ; is accessable. 

roa ; First set up to catch any 004 traps which occur: 

4625 024442 016767 153336 155674 MOV 4, TP4VEC ;SAVE THE EXISTING 004 TRAP VECTOR. 

ana 024450 012767 024136 153326 MOV #TP4RIN,4 ;SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 

46 i¢ 

roy ; Enable LTC checking for 004 trap in case CSR is not there. 

46 3° 

4630 024456 005067 155664 CLR TP4FLG ;CLEAR THE 004 TRAP FLAG. 

4631 024462 012767 000100 155660 MOV #BIT6,WORD1 ;SET UP TO SET BIT6 OF THE LTC CSR. 

4632 024470 012700 002350 MOV #WORD1,RO ;SET UP WORD AS THE CKTRAP MOVE SOURCE. 

4633 024474 016701 155654 MOV CLKCSR,R1 ;SET UP LTC CSR AS DESTINATION FOR CKTRAP MOVE. 

4634 024500 004767 173422 JSR PC,CKTRAP ;MOVE AND CHECK FOR TRAP. 

4635 024504 016767 155634 153272 MOV TP4VEC,4 ;RESTORE THE NORMAL 004 TRAP VECTOR. 

4636 024512 103403 BCS 6$ ;IF NO TRAP, LTC IS THERE SO CONTINUE. 

4637 024514 005067 155642 CLR CLKHRZ ;CLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 

rote 024520 000402 BR 8$ ;BYPASS THE FOLLOWING CALIBRATION PROCEDURES. 

or ; Calibrate the DELAY routine milli-second delay count value. 

ee 024522 004767 173154 oe JSR PC,CALMSL 

4644 S  neaie for Memmory Management present on this machine. 

ahaa ; If MEM MGT is present, disable it. 

4647 024526 016767 153252 155610 bs: MOV 4, TP4VEC ;SAVE THE EXISTING 004 TRAP VECTOR. 

4648 024534 012767 024136 153242 MOV #TP4RITN,4 ;SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 

. 4649 024542 005067 155600 CLR TP4FLG ;CLEAR THE 004 TRAP FLAG. 
| 4650 024546 005067 155576 CLR WORD1 ;PREPARE TO CLEAR THE MEM MGT SRO REGISTER. 
; $651 024552 012700 002350 MOV #WORD1 ,RO ;SELECT CLEARED WORD AS CKTRAP RTN SOURCE. 
4652 024556 016701 155616 MOV MMSRO,R1 ;SELECT MEM MGT SRO REGISTER AS DESTINATION. 


4653 024562 005067 155614 CLR MMPRES ; INDICATE NO MEM MGT PRESENT IN CASE IT ISNT. 





ee ee ee ee --~ «= —— < 


—————————————————————— 


A 
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4654 024566 
4655 024572 
| 4656 024576 


| 4660 024620 


4662 024624 
024624 

4663 024626 
4664 024632 
4665 024632 


4670 024640 
4671 024644 
4672 024646 


4675 024652 
4676 024652 
4677 024656 
4678 024664 


4680 024666 
024666 
024672 
024674 

4681 024676 
024676 

4682 024700 


4686 024702 
4687 024706 
4688 024710 
4689 024714 
4690 024720 
4691 024724 
4692 024730 
4693 024734 
4694 024736 
4695 024742 


4700 024746 
4701 024752 
4702 024754 

| 4703 024756 

' 4704 024762 

| 4705 024766 


012767 


005267 
001002 
005367 


005267 
026767 
002362 


016700 
104442 
010001 


103401 
000764 


012167 


112167 


016701 
005201 
005201 
012703 
012702 
010122 


155612 
173330 
155542 
000001 


155512 
000006 


155500 
177777 


155466 
155460 


155362 
155356 


155346 


155336 


155316 
000004 
155310 
155306 
000377 


155274 


155274 


155272 


000007 
002246 


153200 
155566 


155400 


155126 


10$: 


NEWRES: 


NEWPAS: 


;* 


SEQ 9120 


CLR MMENAB ;INDICATE MEM MGT IS NOT ENABLED. 

JSR PC, CKTRAP ;CLEAR THE MEM MCT SRO REG AND CHECK FOR TRAP. 
MOV TP4VEC 4 sRESTORE THE NORMAL 004 TRAP VECTOR. 
BCC 10$ ;SKIP INDICATING MEM MGT PRESENT IF IT ISN'T. 
MOV #1,MMPRES s;INDICATE THAT MEM MGT IS PRESENT. 

CLR PASCNT ;CLR COUNTER USED IN REPORTING ROM VERSION #. 
JMP NEWPAS ;SKIP AROUND THE BUS RESET, IT'S BEEN DONE. 
BRESET sRESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 

TRAP CSRESET 

CLR PASCNT ;CLR COUNTER USED IN REPORTING ROM VERSION #. 
MOV #-1,UNITN sRESET LOGICAL DEVICE TO -1 


; Increment the pass counter, correct for any overflow. 
; This counter is used in the Rom version test. 


INC PASCNT s INCREMENT THE PASS COUNTER. 
BNE GETPRM ;BRANCH IF WE HAVE NOT YET! OVERFLOWED. 
DEC PASCNT SET PASS COUNT TO 177777 OCTAL. 


; 5 ga HARDWARE PARAMETERS FOR THIS UNIT. 


GETP 


30$: 


12$: 


INC UNITN ; INCREMENT LOGICAL DEVICE NUMBER 

CMP UNITN,L$UNIT ;SEE IF MAXIMUM UNIT NO. EXCEEDED 

BGE NEWPAS 3 IF YES 

GPHARD UNITN,R1 ;GET P-TABLE POINTER INTO R1 
MOV UNITN,RO 
TRAP C$GPHRD 
MOV RO,R1 

BCOMPLETE 30$ ;BR IF DEVICE AVAILABLE 
BCS 30$ 

BR GETPRM ;SKIP THIS DEVICE 

;**eeeee4ee4e% HARDWARE PARAMETER MOVING CODE seeeeecacacecece 

MOV (R1)+,CSRA sSTORE DHV11-M CSR ADDRESS IN DEV.REG.ADDRESS TABLE 

MOV (R1)+,R2 ;GET THE RX INTERRUPT VECTOR ADDRESS. 

MOV R2,RXVECA ;STORE RX INT VECTOR ADDRESS. 

ADD #4 ,R2 sCALCULATE TX INTERRUPT VECTOR ADDRESS. 

MOV R2,TXVECA ;STORE TX INT VECTOR ADDRESS. 

MOV (Fi)+,ACTLNS ;STORE DHV11-M ACTIVE LINE BIT MAP 

MOV #MAPLNS ,R2 ;GET THE BIT MAP FOR ALL LINES. 

COM R2 ;GET A BIT MAP OF NON-EXISTANT LINES. 

BIC R2,ACTLNS ;CLEAR NON-EXISTANT LINES FROM ACTLNS. 


MOVB (R1)+,BRLEVL sSTORE DHV11-M INTERUPT BUS REQUEST LEVEL 


CALCULTATE DEVICE REGISTER ADDRESSES,AND PUT THEM IN THE 
DEVICE REGISTER ADDRESS TABLE. 


MOV CSRA,R1 COPY CSR ADDRESS 

INC R1 s INCREMENT CSR ADDRESS 

INC R1 ; COPY BY 2. 

MOV #7 ,R3 ;SET UP REGISTER COUNT 

MOV #RBUFA,R2 sGET LOCATION WHERE RBUF ADDRESS GOES IN TABLE 
MOV R1,(R2)+ sSTORE REGISTER ADDRESS IN TABLE 


E10 
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4706 
4707 
4708 
4709 


024770 
024772 
024774 
024776 


025000 
025004 
025010 
025014 
025016 
025020 


025022 


025066 
025066 


025072 
025072 
025076 


025100 
025104 
025106 
025114 


025114 
025114 
025114 


020001 
103775 


032767 
001416 
026727 
003412 


016746 
012746 
012746 
010600 
104417 
062706 


005067 


012700 
104441 


005767 
001403 
012777 


104411 
000000 


002526 
002726 
155510 


000020 155176 
154754 000001 


155172 
004076 
000002 


000006 


155260 


000240 


155256 
000100 155240 


14$: 


SEQ 0121 
INC R1 ; INCREMENT REGISTER ADDRESS 
INC Ri ; BY 2,FOR THE NEXT DEVICE REGISTER. 
DEC R3 ;DECREMENT REGISTER COUNT 
BNE l2$ ;LOOP IF NOT DONE 


MOV #BMPCQB ,RO ;GET THE START ADDRESS OF THE QUEUE. 

MOV #BMPCQE ,R1 ;GET THE END ADDRESS OF THE QUEUE. 

MOV RO, BMPCQP ;SET THE POINTER TO THE START OF THE QUEUE. 
CLR (RO)+ ;CLEAR OUT THE CONTENTS OF THE QUEUE. 

CMP RO,R1 ;CHECK IF END OF QUEUE HAS BEEN REACHED. 
BLO 14$ ;LOOP IF NOT ALL DONE. 


; Report the Unit number if the software P-table question was answered YES, 


and the maximum unit number is greater than 1. 


BIT #BIT4,OPTION ;CHECK IF THE QUESTION WAS ANSWERED YES. 


BEQ 16$ ;SKIP REPORTING UNIT NUMBER IF IT IS DISABLED. 
CMP L$UNIT, #1 ;CHECK MAXIMUM NUMBER OF UNITS SELECTED. 
BLE 16$ ;D0 NOT REPORT UNIT NUMBER IF MAX NUMBER < 1. 


PRINTF #MFUNIT,UNITN ;REPORT UNIT NUMBER. 
MOV UNITN, -(SP) 
MOV #MF UNIT, - (SP) 


MOV SP ,RO 
TRAP C$PNTF 
ADD #6, SP 


16$: 


ENDIT: CLR CTRLCF 


;CLR THE CTRL-C TEST ABORT FLAG. 


3¢ 
; Set the processor priority to allow LTC interrupts but not others. 


SETPRI #PRIOS ;SET PROCESSOR PRIORITY TO 5. 
MOV #PRIO5,RO 
TRAP C$SPRI 
Enable Line Time Clock if one is available. 
TST CLKHRZ ;CHECK FOR A LTC BEING PRESENT. 


BEQ 18$ ;sLTC PRESENT? NO, SKIP LTC ENABLE. 
MOV #BIT6,9CLKCSR ;YES, ENABLE THE LTC. 


18$: 


ENDINIT 
L10021: 
TRAP CSINIT 


TNUM == 0 INITIALIZE THE ASSEMBLER TEST NUMBER VARIABLE. 


EE ee 


ae ae ee ee ee eee 


ee nee —_— — — 
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SEQ 0122 
| INITIALIZE SECTION 
775 ; 5 56 hgh 6 6 ih hg i ih uh uk gg gs sh ih bs oh oh i uh ub gah gh ib ah sa gb ah sah sao kd ah ab sho ah sak ak sa oh ab sak oa a a ab sak sk oo 6 ab a oo 9h 0b eb oh 9h 9k 9k sh 

aves ; VDHA.ATD 
4753 5 5 96 96 96 i 5 6 ih 9 hg hs akg oh gu hg ss sk gh ga oh ga go sg abs sag akg sak ab sak ga kk gu ak ak gk akg ah a ak a os bg oh nb 96 0b 
4758 
4759 
4760 lad 
4761 : THIS CODE IS eg: IMMEDIATELY AFTER THE INITIALIZE CODE IF 
4762 ; THE "ADR" FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
4763 ; SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
4764 ; DROPPED FROM TESTING. 
4765 >> 
4766 
4767 025116 BGNAUTO 

025116 L$AUTO:: 
4768 
4775 
4776 025116 ENDAUTO 

025116 L10022: 


4755 

4756 

4757 .SBTTL AUTODROP SECTION 
025116 104461 TRAP C$AUTO 


‘ 
ee ee eee ead 
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_AUTODROP SECTION 


4794 025120 
025120 


4804 025120 
4805 025124 
4806 025126 
025126 
4807 025130 
025130 
025134 
4808 025136 
4809 025136 
4810 025142 
4811 025144 
4812 025150 
4813 025150 
025150 
025152 


4829 025154 
025154 
025154 


005767 
001404 


104433 


012700 
104441 


0C5767 


001402 
005077 


104432 
000002 


104412 


155226 


000240 


155220 
155204 


G10 


SEQ 0123 


5 56 6 96 96 96 6 6 6 5 5 ll ll bh bi i i i lh hh ht a a hh hh 


VOHA . CUC 


; KKKKLKLKLL SLL LL LK LK SALAS SK SKS LK SKK LK SKS A a ee a 


-SBTTL CLEANUP CODING SECTION 


As 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 
TST 
BEQ 
BRESET 
SETPRI 


2s: 


3$: 


.EVEN 
ENDCLN 


CTRLCF 
$ 

#PRIOS 

CLKHRZ 


3$ 
aCLKCSR 
CLN 


L$CLEAN: : 


;DID WE GET HERE BY CTRL-C FROM TEST? 

;CTRL-C FROM TEST? NO, SKIP BUS RESET. 

YES, CLR ANY DMAS OR OUTSTANDING INTERRUPTS. 
TRAP C$RESET 

;DISABLE DEVICE INTERRUPTS, ALLOW LTC INTS. 
MOV #PRIOS,RO 
TRAP C$SPRI 


TRAP CSEXIT 
-WORD L10023-. 


L10023: 
TRAP C$CLEAN 


- ee ee ee 
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SEQ 0124 
; CLEANUP CODING SECTION 
| 4831 
anit halataiaiataaiataalataiaiataiaictaiaiaiaiataiainaisineistaiisuisanaasassnuaasadsaasnnsasaamnananansnanensaneagansecccccal 
| anes 3 VDHA .DRP 
ant? 5 55 96 96 5 96 6 5 0 6 9 hh hl 0 ul 0 0h 0 gh ul 0 0h 0 tb 0 hw bh 0 gh 0 uh 0 hb 0 0h 0 0 gu 9 9h 9 gu 
4838 
4839 
4840 .SBTTL DROP UNIT SECTION 
4841 
4842 3 
4843 ; "THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
4844 ; TO NO LONGER BE TESTED. 
4845 i-- 
4846 
4847 025156 BGNDU 
ou 025156 L$DU:: 
4849 5 56 96 96 96 96 96 96 6 6 i i ll ll hb bu uh hh 0 uu 0 0 0 9 9 0 9 9 9 9 gs 
4850 : ge tl DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
4851 ; A “DROP” COMMAND OR A “DODU" MACRO EXECUTION. THE PURPOSE 
4852 ; OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
4853 UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 
red ns | SKSSKSSKASKA LALLA LLL ALL LAK AK ALLS KK AKL LK LLL LALLA LL KN 
4 
4856 025156 PRINTF #DROP,RO ;REPORT UNIT THAT HAS BEEN DROPPED. 
025156 010046 MOV RO, -(SP) 
025160 012746 025202 MOV #DROP , -( SP) 
025164 012746 000002 MOV #2,-(SP) 
025170 010600 MOV SP,RO 
025172 104417 TRAP CS$PNTF 
025174 062706 000006 ADD #6,SP 
rps id 025200 000427 BR EDROP ;BRANCH AROUND THE MESSAGE. 
4858 


4859 025202 045 101 040 DROP: -ASCIZ/#A UNIT#D6#%A DROPPED FROM FURTHER TESTING. #N/ 
025205 125 116 111 
025210 124 045 104 
025213 066 045 101 
025216 040 104 122 
025221 117 120 120 
025224 105 104 040 
025227 106 122 117 
025232 115 040 106 
025235 125 122 124 
025240 110 105 122 
025243 040 124 105 
025246 123 124 111 
025251 116 107 056 — 
025254 045 116 000 


4860 -EVEN 
4861 025260 EDROP: 
4862 025260 EXIT DU 
025260 000167 -WORD J$JMP 
0063 025262 000000 -WORD L10024-2-. 


110 
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SEQ 0125 
| DROP UNIT SECTION 


4865 
4866 025264 ENDDU 
025264 L10024: 
025264 104453 TRAP C$DU 


— ee — --.-- 
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| DROP UNIT SECTION 


SEQ 0126 


ats 5 5 6 6 5 96 9 0 ih 9h hg ib sg i hg huh ga ab ga sah ag ga a bg sag ab sa ad sak gk oa kh ah ak ab bg bs 9 bb 9 bs 9b 6 9S 96 9h 
4871 ; VDHA: ADD 


4873 ; SKKKSLKSLK ASKS LK SSK LK KKK KSA SKL SKK SASK KK KKK KKK SASK 


4877 .-SBTTL ADD UNIT SECTION 


34+ 
4880 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
4881 ; 7O BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
Pres | ; 10 THE TEST CYCLE. 


4885 025266 BGNAU 
025266 L$AU:: 


4887 5 56 96 96 96 96 96 96 6 9 9 i i ul ul 0 0 i a i lu sb hb hh hh 9h 9h gt gd 
4888 ; INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFT ey 
4889 ; AN "ADD" COMMAND. THE PURPOSE OF THIS CODE IS TO DO A 

4890 i HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 

4891 : THIS SECTION IS OPTIONAL 

4892 ; KEKKKKLKLKL LALLA SKK LA KK LSA ALLL a 
, 


4894 025266 EXIT AU 
025266 000167 -WORD J$JMP 
025270 000000 -WORD L10025-2-. 


er -EVEN 
4899 025272 ENDAU 


025272 L10025: 
. 025272 104452 TRAP C$AU 


eee eee 


me ee ee 
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025274 
025274 


025274 
025302 


025310 
025316 
025324 


025326 


025330 
025334 
025340 


025412 
025416 
025424 
025430 
025434 


000001 
012767 
012767 


016767 
012767 
005005 


005004 


005067 


000440 


012702 
016767 
012700 
012701 
004767 


- ADRA - 


000001 
177777 


152470 
024136 


155012 
154704 
025554 
172556 


100001 
000017 
000164 


154646 
172324 


100002 


000010 
154622 
025552 
025554 
172466 


155024 
155042 


155026 
152460 


000170 


000126 


-SBTTL HARDWARE TEST 


3+? 


- ADRA - 


SEQ 0127 


FB hatha chathaadha hh eehateddediibddbihihhihhihpibphhehhehothitittittit iit eriri Trt ttt} 
- REGISTER ADDRESS TEST - 


This test verifies that the Q-bus can read and write to the DHV11 


device registers. If the DHV11 does not respond to the access 


attempts 


If the DHV11 is at the wrong address, for example) the 


004 bus time-out trap is detected by this routine and an error 
is reported. 


BGNTST 
TNUM == TNUM + 1 


MOV 


MOV 


#TNUM, TSTNUM 


’ 
5 MRR RR RK KR KKK RRR KEKE REAR EEERE EERE REE EERE EEEEEE ERE KE 


T1l:: 
s INCREMENT THE ASSEMBLY TIME oor + mantis 


;SET UP THE TEST NUMBER. 
s;INDICATE THAT WE ARE IN A TEST. 


;* 
; Set up to catch any 004 traps which occur: 


MOV 
MOV 
CLR 


4, TP4VEC 
#TP4RTN,4 
R5 


;SAVE THE EXISTING 004 TRAP VECTOR. 


;SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 


;CLEAR THE ERROR FLAGS. 


3* 
; Set up for the initial iteration of the test loop: 


* Here o—- 
First test the CSR and set the I 


4$: 


* 


CD ven oe a 
oo ws 


CLR 


R4 


TP4FLG 
At CKTRAP 


#100001, RS 
#17,52$ 


ay ,CKTRAP 
#100002 ,R5 
40$ 


test each register 


PC, CKTRAP 


;CLEAR THE LINE COUNTER. 


ns the loop to test the registers for a 


lin 
D.ADR.REG cI. A. R) field. 


;CLEAR THE 004 TRAP FLAG. 
;SET UP CSR AS THE CKTRAP MOVE SOURCE. 


;SET UP DESTINATION LOCATION FOR CKTRAP MOVE. 


;MOVE AND CHECK FOR TRAP 

;IF NO TRAP, BYPASS ERROR. 

;SET FATAL READ ERROR FLAGS. 

;CLEAR THE I.A.R FIELD OF THE CSR DATA. 


;OR IN THE LINE COUNTER TO THE I.A.R FIELD. 
;USE OLD DESTINATION FOR SOURCE OF CKTRAP MOVE. 
;SET UP CSR AS THE CKTRAP MOVE DESTINATION. 


sMOVE AND CHECK FOR TRAP. 

;IF NO TRAP, BYPASS ERROR. 
;SET FATAL WRITE ERROR FLAGS. 
;EXIT AND REPORT FATAL ERROR. 


for this line. 


;INIT REGISTER COUNTER TO 8. 
sINITIALIZE THE REGISTER POINTER. 


;SET UP REGISTER AS THE SOURCE FOR CKTRAP MOVE. 
sSET UP LOCAL STORAGE AS THE DES FOR CKTRAP. 


;PERFORM THE MOVE, CHECK FOR TRAP. 


LLL TT TTT SSS sss 


ee ee eee we 


L10 
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SEQ 0128 
| HARDWARE TEST - ADRA - 
4958 025440 103402 BCS 10$ ;IF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
4959 025442 052705 100001 BIS #100001,R5 ;SET FATAL READ ERROR FLAGS. 
4960 025446 010100 10$: MOV R1,RO ;USE OLD DEST AS SRC FOR CKTRAP MOVE. 
4961 025450 012701 025552 MOV #50$,R1 ;SET UP REGISTER AS THE DEST 4 CKTRAP MOVE. 
4962 025454 004767 172446 JSR PC, CKTRAP ; PERFORM THE MOVE, CHECK FOR T 
4963 025460 103402 BCS 12$ ;IF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
4964 025462 052705 100002 BIS #100002 ,R5 ;SET FATAL WRITE ERROR FLAGS. 
4965 025466 005267 000060 12$: INC 50$ ; INCREMENT THE REGISTER 
4966 025472 005267 000054 INC 50$ ; POINTER BY 2. 
4967 025476 005302 DEC R2 ;COUNT THE REGISTER 
cee 025500 001351 BNE 8$ ;LOOP TO TEST THE NEXT REGISTER ADDRESS. 
4970 3+ 
4075 ; Now we set up to test the next line, or to exit if we are done. 
4973 025502 005204 INC R4 s INCREMENT THE LINE COUNTER. 
4974 025504 020427 600010 CMP R4, #NUMLNS ;COMPARE LINE COUNTER AGAINST NUMBER OF LINES. 
psd 025510 002707 BLT 2s ;LOOP TO TEST THE NEXT LINE IF WE'RE NOT DONE. 
4977 
4978 ; | Dene checking device register addresses. 
pods ; Report any errors and exit. 
4981 025512 016767 154626 152264 40$: MOV TP4VEC ,4 sRESTORE THE NORMAL 004 TRAP VECTOR. 
4982 025520 005705 TST RS ;CHECK THE ERROR FLAGS. 
4983 025522 100015 BPL 60$ ;EXIT ROUTINE IF NO ERRORS. 
4984 ; REPORT "DEVICE REGISTER ACCESS ERRORS" 
4985 025524 ERRDF 101,EM0103,ERO101; >>>>> ERROR #101 <<<<<, 
025524 104455 TRAP CSERDF 
025526 000145 -WORD 101 
025530 006067 -WORD €M0103 
seen 025532 016070 -WORD €ERO101 
4987 025534 DODU UNITN ;DROP THIS UNIT FROM FUTHER TESTING. 
025534 016700 154500 MOV UNITN,RO 
025540 104451 TRAP C$DODU 
4988 025542 005067 154604 CLR CTRLCF s INDICATE NO Big ake apeee FROM TEST. 
4989 025546 DOCLN ;ABORT THIS SUB P 
025546 104444 TRAP C$DCLN 
oer 025550 000402 BR 60$ 3 
po ; Local storage. 
4994 025552 000000 50$: .WORD 0O ;STORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
4995 025554 000000 52$: -WORD O ;STORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
4996 025556 005067 154570 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
4997 025562 ENDTST 
025562 L10026: 
025562 104401 TRAP CSETST 


ee ee ee 


a 


eee eee ee eee. 
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| WARDUARE TEST 


006 025564 
025564 


2 
025614 
025622 


025640 
025644 


025646 


025720 


025722 
025730 
025734 
025734 
025736 


000002 
012767 
012767 
012767 
012767 
012767 


012701 


103016 


012701 


000424 


012767 
012701 


104460 
000415 


- MRSTA - 


000002 
177777 


006125 
016406 
011610 
000040 


154404 
172474 


174462 
011610 
172454 


011610 
172440 
011610 


000764 


000311 
006173 





154534 
000001 156160 
156152 


156040 


-SBTTL HARDWARE TEST 
PME CEL ISI TTT iT PPP eT TPP rrr Trt iit titi ri iti ttt ttt tt TTT TTT TTT TTT TTT TTT TTT TT 
- Master Reset With Selftest Test - 

This test verifies that the Master Reset bit will clear after a device 
reset and the performance of the DUT ROM based selftest. 


;* 
3;* 
;* 
;* 


- MRSTA - 


Fi — REREREER ERA ERE EREREERER EAE EEEEEREERAE AAAS EEER AEE EEREREEEEEESEEEEEE EEE EEE 
TST 


; DUT Master 


TNUM == 


TNUM + 1 


#TNUM, TSTNUM 


#-1,CTRLCF 


#1,ERRTYP 
#EM0201, ERRMSG 
#ERO201,ERRBLK 


#5000. ,R1 
#BITOS,R2 
R3 


CSRA,R4 
PC ,MSLGET 
2$ 


Reset bit did not go clear. 
Try to reset device with a bus reset. 


T2:: 
; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
;SET UP _ THE TEST NUMBER. (2) 


; Ss e 

;INDICATE THAT WE ARE IN A TEST. 

;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


3? 
; Wait up to 5 seconds for the DUT Master Reset bit to clear. 


;TIME-OUT VALUE IS 5.0 SECONDS. 
s;WAITING FOR MASTER hog BIT. 


CSR. 
IWAIT FOR DUT_CSR_MR a TO CLEAR. 
;SKIP TO RESET DUT IF MR CLEAR. 


Device may be stuck in some 


sNO, TRY TO JOG DEVICE WITH BUS RESET. 
TRAP 


;TRY TO SKIP THE SELFTEST. 

;TIME-OUT VALUE IS 5.0 SECONDS. 

;WAIT FOR DUT_CSR_MR BIT TO CLEAR 

;GO REPORT ERROR IF MR BIT DID NOT CLEAR. 


CS$RESET 


;* 
; Set the Master Reset bit and verify that it clears within the proper time. 


Hed 
; Error reports: 


4$: 


odd state. 
BRESET 
JSR PC,SKPSTS 
MOV #5000. ,R1 
JSR PC ,MSLGET 
BCC 4$ 
MOV #5000. ,R1 
MOV R2,(R4) 
JSR PC ,MSLGET 
BCC 4$ 
MOV #5000. ,R2 
SUB R1,R2 
BEQ 6$ 
CMP R2, #500. 
BLT 8$ 
BR 60$ 


it VALUE IS 5.0 SECONDS. 


sCALCULATE # OF MS + MR_ TO CLEAR 
;GO REPORT ERROR IF MR CLEAR IMMEDIATELY. 


;GO REPORT ERROR IF MR CLEAR IN < 1/2 SECOND. 
sEXIT THE TEST WITHOUT ERROR. 


sReport MR bit would not clear after a DUT res 


MOV #201. ,ERRNBR 
MOV #£M0202,R1 
ERROR 
BR 60$ 


;SET THE ERROR NUMBER IN ERROR TABLE. 

sSELECT ERROR MESSAGE. 

sREPORT ERROR. >>>>> ERROR #201 <<<<< 
TRAP CSERROR 


sEXIT THE TEST. 


SEQ 0129 


SO LL LTT LT LT SSeS steetneese svenneeee—a a et 


ee. ) ARTS N10 
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SEQ 0 
HARDWARE TEST — 


| 
- MRSTA - 


5053 sReport MR bit clear immediately after DUT rese 
5054 025740 012767 000312 156022 6$: MOV #202. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
5055 025746 012701 006346 MOV #EM0203,R1 +SELECT ERROR MESSAGE. 
5056 025752 ERROR ;REPORT ERROR. >>>>> ERROR #202 <<<<< 
025752 104460 TRAP CSERROR 
roe 025754 000406 BR 60$ ;EXIT THE TEST. 
5059 sReport MR clear within 1/2 second of DUT res 
5060 025756 012767 000313 156004 83: MOV #203. ,ERRNBR ;SET THE 
5061 025764 012701 006511 MOV #EM0204, Ri ;SELECT ERROR MESSAGE. 
5062 025770 ERROR ;REPORT ERROR. >>>>> ERROR #203 <<<<< 
5063 025770 104460 TRAP CSERROR 
goee 025772 005067 154354 60$: CLR CTRLCF s INDICATE THAT WE COMPLETED THE TEST. 
5066 025776 ENDTST 
025776 L10027: 
025776 104401 TRAP CSETST 


ERROR NUMBER IN ERROR TABLE. 
| 


! 
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| HARDWARE TEST 


026102 
026106 
026110 
026114 
026120 
026122 
026126 
026130 
026134 
026136 


026140 
026144 
026150 


me ee ee ee 


012767 


012701 
012702 
005003 


103024 


012701 
010214 
67 


012701 
004767 
103416 


- MRSSTA - 


©90003 
177777 
000001 
006670 
016406 


011610 
000040 


154170 
172260 


174246 
011610 
172240 


000310 


174222 
172220 


000310 
000012 


011300 
172170 


155736 





SE@ 0131 

.SBTTL HARDWARE TEST - MRSSTA - 
FOF SESSSSSSSSSSSSSSSSSSSSSSSSASSSSESSSSSSS ce SHSSSSASSSSSESSESSESESSESESE ESSERE EEEEEE 
;* - Master Reset With Skip Selftest Test - 
;* This test verifies that the Master Reset bit will clear after a device 
i* reset and the skipping of the DUT ROM based selftest. 
s 
+# ebay OO ysipsegnencen amen inte: jo apne Yes nee 0 SO ag ta pn ads tam ta 

GNTS 

T3:: 

TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV #TNUM, TSTNUM T UT ST NUMBER. (3) 

MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST 


MOV #ERO201, " ERRBLK iSET ERROR ROUTINE ADDRESS IN ERROR TABLE. 
; Wait up to 5 seconds for the DUT Master Reset bit to clear. 


MOV #5000. ,R1 ;TIME-OUT VALUE IS 5.0 SECONDS. 
MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 


CLR R3 ;WAITING FOR BIT TO CLEAR. 
MOV CSRA,R4 ;BIT IS IN THE DUT’S CSR. 

JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
BCS 2s ;SKIP TO RESET DUT IF MR CLEAR. 


; DUT Master Reset bit did not go clear. Device may be stuck in some 
; odd state. Try to reset device with ea bus reset. 


BRESET ;NO, TRY TO JOG DEVICE WITH BUS 3 AE 
TRAP CS$RESET 
JSR se SKPSTS sTRY TO -_— THE SELFTEST. 
MOV #5000. »R1 TIME-OUT VALUE IS 5.0 eer 
JSR +t MSLGET ‘WAIT FOR buT CSR_MR BIT TO CLE 
BCC ;GO REPORT ERROR IF MR BIT pID NO? CLe*°. 
; “Set the Master Reset bit, try to skip the selftest, and verify that the 
; MR bit clears within 1/5 second. 
bs. MOV #200. ,R1 ;TIME-OUT VALUE IS 1/5 SECOND. 
MOV R2,(R4) ;SET THE DUT MASTER RESET BIT 
JSR PC,SKPSTS TRY TO SKIP THE SELFTEST. 
JSR PC ,MSLGET swATT FOR DUT_CSR_MR BIT TO CLEAR. 
BCC 4$ ;GO FIND OUT WHAT IS WRONG IF MR NOT CLEAR. 
MOV #200. ,R2 
SUB R1,R2 ;CALCULATE # OF MS FOR MR TO CLEAR. 
CMP R2,#10. 
BLT 8$ ;GO REPORT ERROR IF MR CLEAR IN < 10 MS. 
BR 60$ ;EXIT THE TEST WITHOUT ERROR. 


; MR did not clear within 1/5 second, see if it clears within 5 seconds. 


4s: MOV #4800. ,R1 ;TIME-OUT VALUE IS 5 SECONDS MINUS 1/5 SECOND. 
JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR 
BCS 10$ ;GO REPORT ERROR IF MR CLEARED FINALLY. 


; Error reports: 


Nae SAIS 
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e+ 


SEQ 0132 


HARDWARE TEST - MRSSTA - 

5123 sReport MR bit would not clear after a DUT re 

5124 026152 012767 000455 155610 63: MOV #0301. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 

5125 026160 012701 006173 MOV #EM0202, Ri ; SELECT ERROR MESSAGE. 

5126 026164 ERROR ;REPORT ERROR. >>>>> ERROR #0301 <<<<< 
026164 104460 TRAP CSERROR 

tat 026166 000415 BR 60$ ;EXIT THE TEST. 

5129 sReport MR bit clear within 10 ms after DUT re 

5130 026170 012767 000456 155572 8$: MOV #0302. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 

5131 026176 012701 006733 MOV #€M0302,R1 ; SELECT ERROR MESSAGE. 

5132 026202 ERROR ;REPORT ERROR. >>>>> ERROR #0302 <<<<< 
026202 104460 TRAP CSERROR 

sits 026204 000406 BR 60$ ;EXIT THE TEST. 

5135 sReport MR cleared between 1/5 second and 5 seconds of DUT reset. 

5136 026206 012767 000457 155554 10$: MOV #0303. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 

5137 026214 012701 007073 MOV #£M0303, RL ;SELECT ERROR MESSAGE. 

5138 026220 ERROR ;REPORT ERROR. >>>>> ERROR #0303 <<<<< 

5130 026220 104460 TRAP CSERROR 

Pty 026222 005067 154124 60$: CLR CTRLCF sINDICATE THAT WE COMPLETED THE TEST. 

5142 026226 ENDTST 
026226 L10030: 
026226 104401 TRAP CSETST 


* a 


mn menins 


2 LLL SE cs-se-sts-se-s s sem me 
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HARDWARE TEST 


026230 
026230 


026230 
026236 
026244 
026252 
026260 


026266 
026272 
026276 
026300 
026304 
026306 
026312 
026316 


026320 
026322 


026350 


026352 
026360 
026364 
026364 
026366 


026370 
026376 
026402 


000004 
012767 
012767 
012767 
012767 
012767 


012701 


004767 
103015 


012400 
012701 
011402 
010200 
042700 
020027 
001012 
005301 
001367 
000415 


012767 
012701 


104460 
000406 


012767 
012701 


- RXCHRA - 


000004 
177777 
000001 
007252 
016406 


011610 
000040 


153740 


174024 
172022 


000006 


177476 
000201 


000621 
006173 


000622 
007321 


154070 
154106 
155514 
155512 
155506 


155410 


_—. 


155372 


.SBTTL HARDWARE TEST - RXCHRA - 

FOF EERE EERE EERE E EERE EERE EERE AEE EE EEE EEEEEEREEEE EERE EEE ES 
- RBUF Register RX Character Field Test - 

This test verifies that the RX Character Field of the DUT RBUF register 

appears to be functioning correctly. This test uses the codes which 

should be in the FIFO after a board reset and skip selftest sequence. 


(eee ee 


— EERE RER EEE EERE EERE EEE EERE EERE EERE EERE RE EE ER EREEEEREEEEEEEEEE RE EEEEEEEREES 
BGNTST 


14 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (4) 

MOV #-1,CTRLCF ;INDICATE THAT WE ARE WITHIN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
MOV #EMO401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #ERO201,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


3 "Set the DUT CSR Master Reset (MR) bit, perform the skip selftest sequence, 
; and wait up to 5 seconds for the MR bit to clear. 


MOV #5000. ,R1 ;TIME-OUT VALUE IS 5.0 SECONDS. 

MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 

CLR R3 sWAITING FOR BIT TO CLEAR. 

;BIT IS IN THE DUT'S CSR. 

sSET THE DUT MASTER RESET BIT. 

JSR PC, SKPSTS sSKIP THE SELFTEST. 

JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR By TO CLEAR. 
BCC 4$ ;GO REPORT ERROR IF MR DID NOT CLEAR. 


; Read 6 characters from the DUT and verify that they are valid selftest 
; codes. 


: MOV (R4)+,RO sINCREMENT POINTER TO POINT TO DUT RBUF REGSTR. 
MOV #6 ,R1 INITIALIZE THE LOOP COUNT ER 


2s: ee gh Ma ;READ A CHARACTER FROM THE DUT RBUF REGISTER. 
BIC #177476,RO sREMOVE ALL BUT BITS SPECIFIC TO SELFTEST CODE. 
CMP RO, #201 ;CHECK THAT BITS 0,6, AND 7 ARE CORRECT 
BNE 6$ ;GO REPORT ERROR IF CODE IS NOT SELFTEST CODE. 
DEC R1 ;COUNT THIS LOOP ITERATION. 
BNE 2s ;LOOP IF NOT ALL LINES DONE. 
BR 60$ ;EXIT TEST, NO ERROR FOUND. 


3+ 
; Error reports: 


, ;Report MR bit would sev clear after a DUT r 
4$: MOV #0401.,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
MOV #EM0202, R1 ;SELECT ERROR MESSAGE. 


ERROR ;REPORT ERROR. >>>>> ERROR #0401 <«<<< 
TRAP CSERROR 
BR 60$ ;EXIT THE TEST. 
sReport improper code found in DUT RBUF after reset (skip selftest). 
6$: MOV #0402. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
MOV #EM0402 ,R1 ;SELECT ERROR MESSAGE. 
ERROR ;REPORT ERROR. >>>>> ERROR #0402 <<««x< 


SEQ 0133 


A a 
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"HARDWARE TEST - RXCHRA - 
| 


Ell 


026402 104460 TRAP 
a: 026404 005067 153742 60$: CLR CTRLCF ;INDICATE THAT WE COMPLETED THE TEST. 
5202 026410 ENDTST 

026410 L10031: 

026410 104401 TRAP 


SEQ 0134 


CS$ERROR 


CSETST 


Fil 
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; HARDWARE TEST - RXFFDA - 
5204 .SBTTL HARDWARE TEST - RXFFDA - 
} 5205 OME Ti iii iitititiitti tii titi iititiiitititiiiiiitititititiiiititittttt ttt ttt tt tt 
| 5206 ; - RBUF Register RX Flag Field Test - 
| 5207 ;* This test verifies that the Field of 3 flag bits in the RBUF reads 
5208 ;* as all ones when the Selftest codes are being read from the DUT 
| sh ;* after a board reset and skip selftest sequence. 
;* 
5211 Pe titi itiiititiiititttititttttiitiitiitititttititiiiitiitiiiititiititttt tt tty 
5212 026412 BGNTST 
026412. T5:: 
5213 000005 TNUM == TNUM « 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
5214 026412 012767 000005 153706 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (5) 
5215 026420 012767 177777 153724 MOV #-1,CTRLCF ; INDICATE THAT WE ARE WITHIN A TEST. 
5216 026426 012767 1 155332 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
5217 026434 012767 007471 155330 MOV #EM0501,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
tt 026442 012767 016406 155324 MOV #ERO201,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 
5220 ; Set the DUT CSR Master Reset (MR) bit, perform the skip selftest sequence, 
3343 ; and wait up to 5 seconds for the MR bit to clear. 
5223 026450 012701 011610 MOV #5000. ,R1 ;TIME-OUT VALUE IS 5.0 SECONDS. 
5224 026454 012702 000040 MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 
5225 026460 005003 CLR R3 ;WAITING FOR BIT TO CLEAR. 
5226 026462 016704 153556 MOV CSRA,R4 ;BIT IS IN THE DUT'S CSR. 
5227 026466 010214 MOV R2,(R4) ;SET THE DUT MASTER RESET BIT. 
5228 026470 004767 173642 JSR PC,SKPSTS ;SKIP THE SELFTEST. 
5229 026474 004767 171640 JSR PC ,MSLGET ;WAIT FOR gf ae BIT TO CLEAR. 
ate 026500 103013 BCC 4$ ;GO REPORT ERROR IF MR DID NOT CLEAR. 
5232 ’ "Read 8 characters from the DUT and verify that all 3 RX error flags are 
ot ; set for each characters. 
234 ‘- 
5235 026502 012400 MOV (R4)+,RO ; INCREMENT POINTER TO all TO DUT RBUF REGSTR. 
5236 026504 012701 000010 MOV #8.,R1 ; INITIALIZE THE LOOP COUNTE 
5237 026510 011402 2$: MOV (R4),R2 ;READ A CHARACTER FROM THE BUT RBUF REGISTER. 
5238 026512 012700 070000 MOV #70000, RO 
5239 026516 040200 BIC R2,RO ;CALCULATE BIT MAP OF CLEAR RX ERROR FLAGS. 
5240 026520 001012 BNE 6$ ;GO REPORT ERROR IF NOT ALL RX ERROR FLAGS SET. 
5241 026522 005301 DEC R1 ;COUNT THIS LOOP ITERATION. 
5242 026524 001371 BNE 2$ ;LOOP IF NOT ALL LINES DONE. 
ey 026526 000415 BR 60$ ;EXIT TEST, NO ERROR FOUND. 
5245 i+ 
5246 ; Error reports: 
5247 i- 
5248 ;Report MR bit would not clear after a DUT r 
5249 026530 012767 000765 155232 4$: MOV #0501. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
5250 026536 012701 006173 MOV #EM0202,R1 ;SELECT ERROR MESSAGE. 
5251 026542 ERROR ; REPORT ERROR. >>>>> ERROR #0501 <<<<< 
026542 104460 TRAP CSERROR 
aoae 026544 000406 BR 60$ ;EXIT THE TEST. 
5254 ;Report one or more RX error flags found set with selftest code. 
5255 026546 012767 000766 155214 6%: MOV #0502. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
5256 026554 012701 007537 MOV #EM0502, Ri ;SELECT ERROR MESSAGE. 
5257 026560 ERROR ;REPORT ERROR. >>>>> ERROR #0502 <<<<< 
j 026560 104460 TRAP CSERROR 


{ 


SEQ 0135 


a eee ae ——- - 
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SEQ 0136 
| HARDWARE TEST - RXFFDA - | 
| 5258 
3259 026562 005067 153564 60$: CLR CTRLCF ; INDICATE THAT WE COMPLETED THE TEST. 
| 5261 026566 ENDTST 
026566 L10032: 


026566 104401 TRAP CSETST 


ee ee we ee 





H11 
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| HARDWARE TEST 


5271 026570 
026570 


5273 026570 


5277 026620 


5282 026626 
5283 026632 
5284 026636 
5285 026640 
5286 026644 
5287 026646 
5288 026652 
5289 026656 


5293 026660 
5294 026664 


5298 026666 


5306 026712 


5312 026714 
5313 026722 
5314 026726 

026726 
asi? 026730 


000006 
012767 
012767 
012767 
012767 
012767 


012701 
012702 
005003 
016704 
010214 
004767 
004767 
103016 


032714 
001422 


012705 
010403 
012300 
011300 
032714 
001427 
005305 
001372 
000416 


012767 
012701 


104460 
000415 


- RDAA - 


000006 
177777 
000001 
010073 
016406 


011610 
000040 


153400 


173464 
171462 


000200 


001130 


000200 


001131 
006173 


153530 
153546 
155154 
155152 
155146 


155046 


-SBTTL HARDWARE TEST - RDAA - 
EE eee ade bdibibhh ih hh hp Lp pie ppit pie tit titi titi t titi tit tett ieee TTT Tet 


- CSR RX Date Available Bit Test - 


on" This test verifies that the DUT CSR RX Date Available Bit is set by the 
;* inclusion of the selftest codes in the DUT FIFO and that the bit eleare 
;* after the FIFO has been emptied. 
:* 
5m RD REE E EEE E REE EE EEEEEEEEEEEE EERE EEEEEEES 

BGNTST 

T6: 

TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (6) 

MOV #-1,CTRLCF sINDICATE THAT WE ARE WITHIN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #EMO601,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #ERO201,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


Set the DUT CSR Master Reset (MR) bit, perform the skip selftest sequence, 
; and wait up to 5 seconds for the MR bit to clear. 


MOV #5000. ,R1 ;TIME-OUT VALUE IS 5.0 SECONDS. 
MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 


CLR R3 s;WAITING FOR BIT TO CLEAR. 
MOV CSRA,R4 ;BIT IS IN THE DUT’S CSR. 
MOV R2,(R4) ;SET THE DUT MASTER RESET BIT. 
JSR PC,SKPSTS ;SKIP THE SELFTEST. 
JSR PC,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
BCC 4$ ;GO REPORT ERROR IF MR DID NOT CLEAR. 
;* 
; Check that the RX Date Available bit is set. 
; BIT #BIT7,(R4) ;TEST THE DUT RX.DATA.AVAIL BIT. 
BEQ 6$ ;GO REPORT ERROR IF BIT IS NOT SET. 
; Read characters from the DUT RX FIFO and wait for RX.DATA.AVAIL to go clear. 
‘ Ae He Fi »R5 ;ALLOW READING 600 CHARS BEFORE ERROR. 
MOV (R3)+, = ;CALCULATE THE RBUF ADDRESS. 
2s: MOV (R3),R ;READ A CHARACTER FROM THE RX FIFO. 
BIT SEIT? CRA) ;TEST THE DUT RX.DATA.AVAIL BIT. 
BEQ 60$ ;EXIT TEST WITHOUT ERROR IF RX.DATA.AVAIL CLR. 
DEC RS ;COUNT THE CHARACTER JUST READ. 
BNE 2$ ;LOOP IF NOT TOO MANY CHARS READ FROM FIFO. 
BR 8$ ;GO REPORT ERROR IF RX.DATA.AVAIL WOULDN'T CLR. 


;* 
; Error reports: 


; ;Report MR bit would not clear after a DUT r 
,ERRNBR 


4$: MOV #0601. ;SET THE ERROR NUMBER IN ERROR TABLE. 
MOV #EM0202, Ri ; SELECT ERROR MESSAGE. 
ERROR ;REPORT ERROR. >>>>> ERROR #0601 <<<<< 
TRAP CSERROR 
BR 60$ sEXIT THE TEST. 


sReport that RX.DATA.AVAIL bit was not set after a reset completion. 


SEQ 0137 


oe eee ee 


j 
ee ne ee ee ee ee +d 


| HARDWARE TEST 


5318 026732 
5319 026740 
5320 026744 

026744 
2H 026746 


3 
5324 026750 


026762 
erst 026764 
5330 026770 


026770 
026770 


012767 
012701 


104460 
000406 
012767 
012701 
104460 


005067 


104401 


Tit 
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SEQ 0 
- RDAA - Q 0138 
001132 155030 6$: MOV #0602. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
010127 MOV #EM0602 ,R1 ;SELECT ERROR MESSAGE. 
ERROR ;REPORT ERROR. >>>>> ERROR #0602 <<<<< 
TRAP CSERROR 
BR 60$ sEXIT THE TEST. 
;Report that RX.DATA.AVAIL bit could not be cleared b geese FIFO. 
001133 155012 8$: MOV #0603. ,ERRNBR ;SET THE ERROR NUMBER IN tp OR TABLE. 
010307 MOV #EM0603, Ri ; SELECT ERROR MESSAGE. 
ERROR ; REPORT ERROR. >>>>> ERROR #0603 <<<<< 
TRAP CS$ERROR 
153362 60$: CLR CTRLCF s INDICATE THAT WE COMPLETED THE TEST. 
ENDTST 


L10033: 


TRAP CSETST 





Jil 
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| HARDWARE TEST - RDVA - 
5332 .SBTTL HAROWARE TEST - RDOVA - 
5333 Sot RRR EERE ERE EEE EERE EERE ERE RRA EAEEEEEEEEEREREEEERE EERE EERE REE EE 
5334 ;* - RBUF RX Data Valid Bit Test - 
5335 ;* This test verifies that the DUT RBUF RX Data Valid Bit is set by the 
5336 ;* inclusion of the selftest codes in the DUT FIFO and that the bit clears 
see ;* after the FIFO has been emptied. 
;* é ’ 
5339 Li I Lit iS iit T Trt rrr rrr i tt iii iti tit tt tt ttt ttt ttt tte TTT TTT TTT TTT TT TTT TTT TT TTT 
5340 026772 BGNTST 
026772 T7:: 
5341 000007 TNUM == TNUM «+ 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
5342 026772 012767 000007 153326 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (7) 
5343 027000 012767 177777 153344 MOV #-1,CTRLCF sINDICATE THAT WE ARE WITHIN A TEST. 
5344 027006 012767 000001 154752 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
5345 027014 012767 010472 154750 MOV #EMO701,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
geet 027022 012767 016406 154744 MOV #ERO201,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 
; + 
5348 ; Set the DUT CSR Master Reset (MR) bit, perform the skip selftest sequence, 
Beep ; and wait up to 5 seconds for the MR bit to clear. 
5351 027030 012701 011610 MOV #5000. ,R1 ;TIME-OUT VALUE IS 5.0 SECONDS. 
5352 027034 012702 000040 MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 
5353 027040 005003 CLR R3 ;WAITING FOR BIT TO CLEAR. 
5354 027042 016704 153176 MOV CSRA,R4 ;BIT IS IN THE DUT'S CSR. 
5355 027046 010214 MOV R2,(R4) ;SET THE DUT MASTER RESET BIT. 
5356 027050 004767 173262 JSR PC,SKPSTS ;SKIP THE SELFTEST. 
5357 027054 004767 171260 JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
fone 027060 103012 BCC 4$ ;GO REPORT ERROR IF MR DID NOT CLEAR. 
3¢ 
sere ; Check that the RX Data Valid bit is set. 
1 og 
5362 027062 012400 MOV (R4)+,RO ; INCREMENT POINTER TO PNT TO DUT RBUF REG. 
5363 027064 005714 TST (R4) ;TEST THE DUT RX.DATA.VALID BIT. 
core 027066 100016 BPL 6$ ;GO REPORT ERROR IF BIT IS NOT SET. 
6 4 
pate ; Read characters from the DUT RX FIFO and wait for RX.DATA.VALID to go clear. 
6 oe 
5368 027070 012705 001130 MOV #600. ,R5 ;ALLOW READING 600 CHARS BEFORE ERROR. 
5369 027074 011400 2s: MOV (R4),RO ;READ A CHARACTER FROM THE RX FIFO. 
5370 027076 100027 BPL 60$ ;EXIT TEST WITHOUT ERROR IF BIT IS CLEAR. 
5371 027100 005305 DEC R5 ;COUNT THE CHARACTER JUST READ. 
5372 027102 001374 BNE es ;LOOP IF NOT TOO MANY CHARS READ FROM FIFO. 
sere 027104 000416 BR 8$ ;GO REPORT ERROR IF RX.DATA.VALID WOULDN’T CLR. 
5375 i+ 
5376 ; Error reports: 
5377 37 
5378 sReport MR bit would not clear after a DUT reset. 
5379 027106 012767 001275 154654 43: MOV #0701. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
5380 027114 012701 006173 MOV #EM0202 ,R1 ;SELECT ERROR MESSAGE. 
5381 027120 ERROR ;REPORT ERROR. >>>>> ERROR #0701 <<<<< 
027120 104460 TRAP CSERROR 
poet 027122 000415 BR 60$ ;EXIT THE TEST. 
5384 sReport that RX.DATA.VALID bit was not set after a reset completion. 
5385 027124 012767 001276 154636 63: MOV #0702. ,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 


; 5386 027132 012701 010527 MOV #EM0702,R1 ;SELECT ERROR MESSAGE. 


SEQ 0139 


- --—— ee ee ee 








K11 
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SEQ 014 
| HARDWARE TEST - RDOVA - 
5387 027136 ERROR ;REPORT ERROR. >>>>> — #0702 <<ccc 
027136 104460 TRAP CSERROR 
S394 027140 000406 BR 60$ ;EXIT THE TEST. 
5390 sReport that RX.DATA.VALID bit could not be cleared b pesie FIFO. 
5391 027142 012767 001277 154620 83: MOV #0703.,ERRNBR ;SET THE ERROR el IN ER OR TABLE. 
5392 027150 012701 010707 MOV #€M0703,R1 ;SELECT ERROR MESSA 
5393 027154 ERROR ;REPORT ERROR. >>>>> ERROR #0703 <<<<< 
5300 027154 104460 TRAP CSERROR 
for 027156 005067 153170 60$: CLR CTRLCF s; INDICATE THAT WE COMPLETED THE TEST. 
5397 027162 ENDTST 
027162 L10034: 


027162 104401 “ TRAP = C$ETST 


LL cc 





LLL IIIT ll ce se 


ee = a ee ee ~ — 


Lii 
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5453 ;Report that RX Line Number field is wrong for selftest code. 


SEQ 014 
: HARDWARE TEST - RLNA - . 
5399 .SBTTL HARDWARE TEST - RLNA - 
5400 POeME Titi tii iiiitiiiitiiiiitiiiiiiiiitiiitiiiiiitiiiiiiiiitiiititittititi? +7777? 
5401 ;* - RBUF RX Line Number Field Test - 
5402 ;* This test verifies that the DUT RBUF RX Line Number field is working 
5403 ;* correctly by utilizing the selftest codes which are put in the RX 
oe ;* FIFO after a board reset. 
;* 
5406 Pee titi tititttitiiitiiiititiiitttttti tit titititiiitttttt itt titiiittt itt itt ttt 
5407 027164 BGNTST 
027164 T8:: 
5408 000010 TNUM == TNUM «+ 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
5409 027164 012767 000010 153134 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (8) 
$410 027172 012767 177777 153152 MOV #-1, CTRLCF s; INDICATE THAT WE ARE WITHIN A TEST. 
5411 027200 012767 000001 154560 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
ty 027206 012767 011072 154556 MOV #EM0B01, ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
5414 ; Set the DUT CSR Master Reset (MR) bit, perform the skip selftest sequence, 
oth ; and wait up to 5 seconds for the MR bit to clear. 
5417 027214 012701 011610 MOV #5000. ,R1 ;TIME-OUT VALUE IS 5.0 SECONDS. 
5418 027220 012702 000040 MOV #BITOS,R2 ; WAITING FOR MASTER RESET BIT. 
5419 027224 005003 CLR R3 ;WAITING FOR BIT TO CLEAR. 
5420 027226 016704 153012 MOV CSRA,R4 ;BIT IS IN THE DUT'S CSR. 
5421 027232 010214 MOV R2,(R4) ;SET THE DUT MASTER RESET BIT 
5422 027234 004767 173076- JSR PC,SKPSTS ;SKIP THE SELFTEST. 
5423 027240 004767 171074 JSR PC,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
zee 027244 103016 BCC 4$ ;G0 REPORT ERROR IF MR DID NOT CLEAR. 
5426 ; Read characters from the DUT RX FIFO and verify that the line numbers are 
5427 ; correct. 
cass ; One character is read from the FIFO for each possible line on the DUT. 
5430 027246 005001 CLR Ri ;CLEAR THE LINE COUNTER. 
5431 027250 012400 MOV (R4)+,RO ; INCREMENT POINTER TO PNT TO THE DUT RBUF REG. 
5432 027252 011402 2s: MOV (R4),R2 ;READ A CHARACTER FROM THE DUT RX FIFO. 
5433 027254 010203 MOV R2,R3 
5434 027256 000303 -SWAB R 
5435 027260 042703 177760 BIC #177760,R3 ;REMOVE ALL BUT LINE NUMBER BITS. 
5436 027264 020301 CMP R3,R1 ; COMPARE WITH EXPECTED LINE NUMBER. 
5437 027266 001017 BNE 6$ ;GO REPORT ERROR IF LINE NUMBERS DON’T MATCH. 
5438 027270 005201 INC Ri ;INCREMENT THE EXPECTED LINE NUMBER. 
5439 027272 020127 000010 CMP R1,#NUMLNS ; COMPARE WITH NUMBER OF LINES ON DUT. 
5440 027276 001365 BNE 2s ;LOOP UNTIL CODES FOR ALL LINES ARE READ. 
cr 027300 000423 BR 60$ s;EXIT TEST WITHOUT ERROR. 
5443 :¢ 
5444 ; Error reports: 
5445 ;- 
5446 ;Report MR bit would not clear after a DUT r 
5447 027302 012767 001441 154460 43: MOV #0801.,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 
5448 027310 012767 016470 154456 MOV #ERO503, ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 
5449 027316 012701 006173 MOV #EM0202 ,R1 ;SELECT ERROR MESSAGE. 
5450 027322 ERROR ;REPORT ERROR. >>>>> = #0801 <<<c< 
027322 104460 TRAP CSERROR 
5451 027324 000411 BR 60$ ;EXIT THE TEST. 
5452 
| 
i] 
! 








a eee _ 
' 


M11 
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SEQ 014 

HARDWARE TEST - RLNA - ' | 

5454 027326 012767 001442 154434 6$: MOV #0802.,ERRNBR ;SET THE ERROR NUMBER IN ERROR TABLE. 

5455 027334 012767 016406 154432 MOV #ERO2ZO1,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 

5456 027342 012701 011132 MOV #EMO0802 ,R1 ;SELECT ERROR MESSAGE. 

5457 027346 ERROR ;REPORT ERROR. >>>>> ERROR #0802 <<<<< 

5458 027346 104460 TRAP CSERROR ; 

std 027350 005067 152776 608: CLR CTRLCF ;INDICATE THAT WE COMPLETED THE TEST. 

5461 027354 ENDTST 


| 
027354 L10035: 
027354 104401 TRAP CSETST 
| 
| 
} 








~_——ae = — ———————_——_ I 


Nii 
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SEQ 014 
| HARDWARE TEST - BMPCHK - 7 
5463 -SBTTL HARDWARE TEST - BMPCHK - 
5464 soe satatatatatatatatatatatatad- +7 det epee tad-Sesthedadcatnaaaahhtthttttattatd 
5465 ;* BMP check Test - 
5466 ;* This test is used to verify that the DUT does not immediately fail 
5467 ;* the on-board background-monitor program, and hence invalidate 
5468 ;* succeeding tests. 
5469 te This test looks for BMP codes in the fifo for a set period immediately 
5470 ;* after the self-test is skipped. 
5471 7% Any BMP codes that are found are saved on the queue and are also 
rofl ;* reported in this test. 
7* 
5474 PEM T ITI TTT i TPIT Tir ri titi titi iitiitiitittitiitiiti ttt titi tT ttt itititiTTTTT tity 
5475 027356 BGNTST 
027356 T9:: 
5476 000011 TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
5477 027356 012767 000011 152742 MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. 
5478 027364 012767 177777 152760 MOV #-1,CTRLCF sINDICATE THAT WE ARE WITHIN A TEST. 
5479 027372 012767 000001 154366 MOV #1,ERRTYP ;SET ERROR TYPE AS = IN ERROR TABLE. 
ear 027400 012767 001605 154362 MOV #0901. »ERRNBR ;SET THE ERROR NUMBER 
i+ 
5482 ; Wait up to 3 seconds for the DUT Master Reset bit to clear. 
peas ; If time-out occurs, then exit this test. 
5485 027406 012701 005670 ; MOV #3000. ,R1 ;TIME-OUT VALUE IS 3.0 SECONDS. 
$486 027412 012702 000040 MOV #BIT0S,R2 ;WAITING FOR MASTER RESET BIT. 
5487 027426 005003 CLR R3 ; WAITING FOR BIT TO CLEAR. 
5488 027420 016704 152620 MOV CSRA,R4 ;BIT IS IN THE DUT'S CSR. 
5489 027424 004767 170710 JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
Rent 027430 103027 BCC 50$ ;ABORT THE TEST IF MR DID NOT CLEAR. 
;¢ 
ate ; Reset the DUT, skip the self-test. 
5494 027432 010214 7 MOV R2,(R4) ;SET THE DUT MASTER RESET BIT 
eeee 027434 004767 172676 JSR PC,SKPSTS ;WRITE THE SKIP SELFTEST CODES TO THE DUT. 
;¢ 
5497 ; Wait for Master reset to clear. Delay for 500 milli-secs before purging 
re 4 ; the fifo. tig 
i= 
5500 027440 012704 000764 MOV #500. ,R4 ;TIME-OUT VALUE IS 500 MILLI-SECONDS. 
5501 027444 004767 170630 JSR PC,DELAY ;WAIT FOR BMP TO BEGIN EXECUTION. 
5502 027450 004767 171242 JSR PC ,PUFIFO ;PURGE THE FIFO, SAVING ANY BMP CODES. 
ay 027454 103015 BCC 50$ ;ABORT THE TEST IF THE FIFO DID NOT CLEAR. 
saes ; Report the error if any BMP codes were found. 
5507 027456 016702 153042 ; MOV BMPCOP, »* ;GET THE CONTENTS OF THE POINTER TO THE BMP Q. 
5508 027462 012703 002526 MOV @BMPCOB,R3 ;GET THE START ADDRESS OF THE UE. 
5509 027466 020203 CMP R2,R3 _4SEE IF THE POINTER HAS MOVED FROM THE BASE. 
esi? 027470 001414 BEQ 60$ sEXIT NO CODES IN THE QUEUE. 
seit ; There is at least one BMP code in the queue. Report the error. 
5514 ; Report error BMP CODE FOUND IN TEST nn, BMP CODE:nnnnnn” 
5515 027472 012701 011236 #EM0902 ,R1 ;PASS THE MESSAGE TO BE REPORTED. 
5516 027476 ERRDF 0901, EM0901, ER9301 PF >>>>> ERROR #0901 <<<<<, 
027476 104455 TRAP §CSERDF 
027500 001605 -WORD 901 


——— ee 
— 


me ee ee 
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| HARDWARE TEST 

027502 
027504 

5517 027506 

5518 

5519 027510 

5520 027516 

5521 

5522 027522 

5523 

5524 027526 
027526 
027526 


011205 
017450 
000405 


012767 
004767 


005067 


104401 


- BMPCHK - 


001606 154252 50$: 


172742 
152624 


60$: 


MOV 
JSR 


CLR 
ENDTST 


. WORD 
. WORD 
60$ 
#902. ,ERRNBR 3SET >>>>> ERROR #0902 <<<cc, 
PC, TSABRT ;REPORT NON-TEST RELATED ERROR. 
CTRLCF s; INDICATE THAT WE COMPLETED THE TEST. 


L10036: 
TRAP 


CSETST 


SEQ 0144 


HARDWARE TEST 


36 027530 


027530 


027530 
027536 
027544 
027552 
027560 


027566 
027572 
027576 
027600 
027604 
027610 


027612 
027616 
027620 
027624 
027630 
027632 
027636 


027640 
027646 
027652 


027654 
027662 
027666 
027666 


000012 
012767 
012767 
012767 
012767 
012767 


012701 


004767 
103037 


012701 
010214 
004767 
004767 
103011 
020127 
003015 


012767 
004767 
000423 


012767 
012701 


104460 





- BMPCHK - 


000012 
177777 


000001 
011272 
016470 


005670 
000040 


152440 
170530 


000062 


172512 
170510 


000050 


001753 
171750 


001751 
011336 


152570 
152606 
154214 
154212 
154206 


154122 


154106 


-SBTTL HARDWARE TEST 


Cle 
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SEQ 0145 


- SKSELF - 


3+¢ hahahah hdbbbbbbipbppbp pea ra peter riti titi titi tit tt titi ti ttt T TTT TTT tt 
;* - Skip Self-test Test - eee 
This test verifies that the DUT skips the self-test within the 


:* 

i* time allowed, and 
;* completion. 
;* 


that the fifo contains the correct codes after its 


— FREER EEE EEE EERE EEE EE EEE EERE EEE EEE EES EEEEEEEEEEEEEEEEEEEEEEEEOEEEERES 


BGNTST 
TNUM == TNUM + 1 


T10:: 
s INCREMENT THE yo TIME ee 


MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBE 


MOV #-1,CTRLCF 


MOV #1,ERRTYP 


;INDICATE THAT WE ARE WITHIN A TEST. 
;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #EM1001,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #EROSO3,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


o 
; Wait up to 3 seconds for the DUT Master Reset bit to clear. 


; If time-out occurs, then exit this test. 


MOV #3000. ,R1 
MOV leas 


MOV CSRA,R4 
JSR PC ,MSLGET 
50$ 


MOV #50. ,R1 
MOV R2,(R4) 
JSR PC,SKPSTS 
JSR + heel 


2 
CMP R1,#40. 
4s 


+ 


;TIME-OUT VALUE IS 3.0 SECONDS. 
sWAITING FOR MASTER RESET BIT. 
sWAITING FOR BIT TO CLEAR. 

BIT IS IN THE DUT'S CSR. 

;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
sABORT THE TEST IF MR DID NOT CLEAR. 


Determine if the DUT takes too short or too long a time to skip the self-test 
Set-up a time-out of 50 milli-second, if MR is clear in less than 10 milli 
-second, or greater than 50 milli-seconds, report the error. 


;TIME-OUT VALUE IS 50 MILLI-SECONDS. 
;SET_THE DUT MASTER RESET BIT. 

sWRITE THE SKIP SELFTEST CODES TO THE DUT. 
sWAIT FOR DUT_CSR_MR BIT TO CLEAR. 

;GO REPORT ERR IF SKIPPING STEST TOOK TOO LONG. 


;GO REP ERR IF SELFTEST COMPLETED IN < 10 MS. 


Self-test completed within 10 milli-sec to 50 milli-seconds. 

Verify that the self-test codes in the fifo are "good" codes ,ie the DUT 
successfully completed the self-test. 
This subroutine reports errors with numbers >>>>> 1003 thru 1007 <<<<<. 


MOV #1003.,ERRNBR ;SET ERROR NUMBER TO 1003. 


JSR PC,RSTRPT 
BR 60$ 


+ 
; Error reports: 


sCHECK SELF-TEST CODES IN THE FIFO. 
sEXIT TEST. 


sReport Skip Self-test took too + i 
2s: MOV #1001. ,ERRNBR ;SET THE ERROR NUMBER IN JHE ERROR TABLE. 


MOV #EM1002,R1 
ERROR 


;SELECT ERROR MESSAGE. 
s;REPORT ERROR. >>>>> ERROR #1001 <<<<< 


TRAP CSERROR 


a eee 


Die 
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HARDWARE TEST 


027670 


3 
027672 


8 
027710 
90 027716 


027722 


027726 
027726 
027726 


000414 
012767 
012701 


104460 
000405 


012767 
004767 


005067 


104401 


- SKSELF - 
BR 60$ ;EXIT THE TEST. 
Report wai” Self-test sonphetes too soon 
001752 154070 4$: MOV #1002.,ERRNBR  ;SET THE ERROR NUMBER IN THE ERROR TABLE. 
011423 MOV #€M1003, R1 ; SELECT ERROR MESSAGE. 
ERROR ;REPORT ERROR. >>>>> = 
BR 60$ ;EXIT THE TEST. 
001753 154052 50$: MOV #1003.,ERRNBR ;SET ERROR NUMBER. 
172542 JSR PC, TSABRT ;REPORT NON-TEST RELATED ERROR. 
152424 60$: CLR CTRLCF s INDICATE THAT WE COMPLETED THE TEST. 


ENDTST 
L10037: 
TRAP 


SEQ 0146 


eo <<Kee< 


CSERROR 


CSETST 


i CO ee 


i 
' 





Ele 
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HARDWARE TEST 


04 
5605 027730 
027730 


5607 027730 
5608 027736 
5609 027744 
5610 027752 
5611 027760 


5616 027766 
5617 027772 
5618 027776 
5619 030000 
5620 030004 
5621 030010 


5625 030012 
5626 030014 


5631 030020 
5632 030024 
5633 030030 
5634 030032 
5635 030036 
5636 030042 


5644 030044 
5645 030050 
5646 030052 
5647 030056 
5648 030060 
5649 030062 
5650 030066 
5651 030072 


000013 
012767 
012767 
012767 
012767 
012767 


012701 
012702 
005003 
016704 
004767 
103044 


010214 
004767 


012701 


103020 


012701 
005003 
004767 
103012 
010105 
012701 
052703 
004767 


000013 
177777 
000001 
011501 
016470 


005670 
000040 


152240 
170330 


172316 


000005 
020000 


152206 
170276 


000017 
170262 
000001 


020000 
170242 


152370 
152406 
154014 
154012 
154006 


.SBTTL HARDWARE TEST - DFSKST - 


BO RR RR EER REE ERE EEE ERE AE RERAEAEEEREKERKEEER EERE 


Fa RRR RRR EER EERE KEE EERE EEE EAE REE EERE ERE E ERE EERE AEEEEEEEEEEEERE KEES 
BGNTST 


TNUM == TNUM + 1 


- Diagnostic fail bit, skip self-test test - 


This test verifies that the diagnostic fail bit of the DUT, correctly 
changes state as the on-boared selftest is skipped. 


Til:: 
; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
#TNUM, TSTNUM ;SET UP THE TEST NUMBER. (11) 
#-1,CTRLCF s INDICATE THAT WE ARE WITHIN A TEST. 
#1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
#EM1101,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
#EROSO3,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


3? 
; Wait up to 3 seconds for the DUT Master Reset bit to clear. 
If time-out occurs, then exit this test. 


MOV #3000. ,R1 ;TIME-OUT VALUE IS 3.0 SECONDS. 

MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 

CLR R3 ;WAITING FOR BIT TO CLEAR. 

MOV CSRA,R4 :BIT IS IN THE DUT’S CSR. 

JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 

BCC 50$ ;ABORT THE TEST IF MR DID NOT CLEAR. 

4 Reset the DUT, skip the self-test. 
MOV R2,(R4) ;SET THE DUT MASTER RESET BIT. 
JSR PC,SKPSTS sWRITE THE SKIP SELFTEST CODES TO THE DUT. 


2s: 


Set time out of 5 milli seconds, wait for Diag fail bit to set. 


If time-out occurs go report the error. 


#5,R1 ;TIME-OUT VALUE IS 5 MILLI-SECONDS. 
#B1IT13,R2 sWAITING FOR DIAGNOSTIC FAIL BIT. 

R2,R3 s;WAITING FOR BIT TO SET. 

CSRA,R4 ;BIT IS IN THE DUT'S CSR. 

PC,MSLGET s;WAIT FOR DUT_CSR_DF BIT TO CLEAR. 

4$ sIF DIAG_FAIL DID NOT SET, GO REPORT ERROR. 


Set time-out of 15 milli-secs, wait for Diag_Fail to clear. 
If time-out occurs go report the error. 
Verify the Diag fail bit is in a stable state before continuing. Loop 


back if the state was transitory, using the remainder of the 15 ms time-out. 


#15. ,R1 ;TIME-OUT VALUE IS 15 MILLI-SECONDS. 

R3 s;WAITING FOR BIT TO CLEAR. 

PC,MSLGET s;WAIT FOR DUT_CSR_DF BIT TO CLEAR. 

4$ sIF DIAG_FAIL DID NOT CLEAR, GO REPORT ERROR. 
R1,R5 sSAVE_THE REMAINING TIME-OUT VALUE. 

#1,R1 ;SET TIME-OUT OF 1 MILLI-SECOND. 

#BIT13,R3 ;WAIT FOR BIT TO SET. 

PC ,MSLGET ;DOUBLE CHECK TO ELIMINATE NOISE PROBLEMS. 


SEQ 0147 


Fle 
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5652 030076 103016 BCC 60$ 
5653 030100 010501 MOV R5,R1 
2634 030102 000762 BR 2$ 


5659 030104 012767 002115 153656 4%: 
5660 030112 012701 011742 MOV #EM1205,R1 
5661 030116 ERROR 

030116 104460 
5662 030120 000405 BR 60$ 


5664 030122 012767 002116 153640 50$: MOV 
5665 030130 004767 172330 JSR 


5667 030134 005067 152212 60$: CLR 
5669 030140 


030140 
030140 104401 


#1102. ,ERRNBR 
PC, TSABRT 


CTRLCF 


| 5656 ; Error reports: 
5657 ;- 
5658 ;Report Diagnostic fail bit bad 
MOV 
ENDTST 
i 
| 


SEQ 0148 


;EXIT IF DIAG_FAIL BIT STILL CLEAR. 
;PASS THE REMAINING TIME-OUT VALUE. 
;LOOP TO CHECK AGAIN. 


#1101.,ERRNBR  ;SET THE ERROR NUMBER IN THE ERROR TABLE. 
;SELECT ERROR MESSAGE. 
;REPORT ERROR. 
;EXIT THE TEST. 


;SET THE ERROR NUMBER FOR TSABRT RTN. 
;REPORT NON-TEST RELATED ERROR. 


; INDICATE THAT WE COMPLETED A TEST. 


>>>>> ERROR #1101 <<<<< 
TRAP CSERROR 


L10040: 
TRAP CSETST 


ee 


ee eee 


Gle 
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030142 
030142 


030142 
030150 
030156 
030164 
030172 


030200 


030222 


030224 
030230 
030232 
030236 
030240 
030244 
030246 
030252 
030254 
030260 


030262 
030266 


030270 
030276 
030302 
030302 


000014 
012767 
012767 
012767 
012767 
012767 


012701 
012702 
005003 
016704 
004767 
103062 


012701 
010214 
004767 
103030 
012702 
160102 
020227 
002431 
020227 
002434 


032714 
001406 


012767 
012701 


104460 


- SELFTS - 


000014 
177777 
000001 
011525 
016470 


005670 
000040 


152026 
170116 


005670 
170102 
005670 
000062 
000764 


020000 


002264 
011742 


152156 
152174 
153602 
153600 
153574 


153472 


.SBTTL HARDWARE TEST - SELFTS - 

Wem ti ii tittitttt itt ti tittttiittt itt t titi ttt ttt tttittttttittttitt ttt ttt ttt t tt tt 

i* - Self-test Test - 

;* This test verifies that the DUT's Self-Test executes within the 

38 time allowed, and that the fifo contains the correct codes after its 

i* completion. 

;* 

Petit ttt tittttttitttttittittttttittttiittt tit ttttitttttititt itt ti ttt tt titi tt tt 
BGNTST 


Tl2:: 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (12) 

MOV #-1,CTRLCF ; INDICATE THAT WE ARE WITHIN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
MOV #EM1201,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #EROSO3,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


;* 
; Wait up to 3 seconds for the DUT Master Reset bit to clear. 
; If time-out occurs, then exit this test. 


MOV #3000. ,R1 ;TIME-OUT VALUE IS 3.0 SECONDS. 

MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 

CLR R3 ;WAITING FOR BIT TO CLEAR. 

MOV CSRA,R4 ;BIT IS IN THE DUT'S CSR. 

JSR PC,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
BCC 50$ ;ABORT THE TEST IF MR DID NOT CLEAR. 


| fetsratnn if the Self-test takes too short or too long a time to complete. 
; Set-up a time-out of 3 second, if MR is clear in less than 1/2 second, or 
; greater than 3 seconds, report the error. 


MOV #3000. ,R1 ;TIME-OUT VALUE IS 3.0 SECONDS. 
MOV R2,(R4) ;SET THE DUT MASTER RESET BIT. 


JSR PC,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
BCC 4s ;GO REPORT ERROR SELFTEST TOOK TOG LONG. 
MOV #3000. ,R2 
SUB R1,R2 ;CALCULATE # OF MS SELFTEST TO COMPLETE. 
CMP R2,#50. 
BLT 6$ ;SELFTEST SKIPPED? YES, GO REPORT ERROR. 
CMP R2,#500. 
BLT 8$ ;GO REP ERR IF SELFTEST COMPLETED IN < 1/2 SEC. 


; Self-test completed within lsec to 3 seconds. 
; Check the state of the Diagnostic Fail bit, report error if it is set. 
BIT #BIT13,(R4) ;DETERMINE IF THE DIAG_FAIL BIT IS CLEAR. 
BEQ 2s ;SKIP ERROR REPORT IF BIT IS CLEAR. 
sReport Diagnostic fail bit bad. 
MOV #1204. ,ERRNBR ;SET ERROR NUMBER TO IN ERROR TABLE. 
MOV #€M1205, R1 ;SELECT THE ERROR MESSAGE. 
ERROR ; >>>>> ERROR #1204 <<<<< 
* TRAP CSERROR 


3° 
; Verify that the self-test codes in the fifo are “good” codes ,ie the DUT 
; successfully completed the self-test. 

; This subroutine reports errors with numbers >>>>> 1205 thru 1209 <<<<<, 


SEQ 0149 
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5726 
5727 
5728 
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030304 
030312 
030316 


030320 
030326 
030332 
030332 
030334 


030336 
030344 
030350 
030350 


030352 
030360 
030364 
030364 
030366 


030370 
030376 


030402 
030406 


030406 
030406 


012767 
004767 
000431 


012767 
012701 


104460 
000422 
012767 
012701 
104460 


012767 
012701 


002265 
171304 


002261 
011544 


002262 
011706 


002263 
011630 


104460 


000405 


012767 
004767 


005067 


104401 


002272 
172062 


151744 


153456 


153442 


153424 


153410 


153372 


2s: MOV #1205.,ERRNBR ;SET ERROR NUMBER TO 1205. 
JSR PC,RSTRPT ;CHECK SELF-TEST CODES IN THE FIFO. 
BR 60$ sEXIT TEST. 


; Error reports: 
sReport Self-test took too noe to complete. 
4$: MOV #1201. ,ERRNBR T THE ERROR NUMBER IN THE ERROR TABLE. 
MOV #€M1202,R1 ;SELECT ERROR MESSAGE. 
ERROR ;REPORT ERROR. >>>>> ERROR #1201 <<<<< 
TRAP CSERROR 


BR 60$ sEXIT THE TEST. 
;Report Self-test did not execute after DUT res 
6$: MOV #1202. ,ERRNBR ;SET THE ERROR NUMBER’ IN ERROR TABLE. 


MOV #EM1204, Ri ;SELECT ERROR MESSAGE. 
ERROR ; REPORT ERROR. >>>>> ERROR #1202 <<<<< 


TRAP CSERROR 


;Report Self-test competed too soon. 


8$: MOV #1203. ,ERRNBR ;SET THE ERROR NUMBER IN THE ERROR TABLE. 
MOV #EM1203,R1 ;SELECT ERROR MESSAGE. 
ERROR ;REPORT ERROR. >>>>> ERROR #1203 <<<<< 
TRAP CS$ERROR 
BR 60$ ;EXIT THE TEST. 
50$: MOV #1210. ,ERRNBR ;SET THE ERROR NUMBER FOR TSABRT RTN. 


JSR PC, TSABRT 
60$: CLR CTRLCF 
ENDTST 


;REPORT NON-TEST RELATED ERROR. 
sINDICATE THAT WE COMPLETED THE TEST. 


L10041: 
TRAP CSETST 


SEQ 0150 


niiiimemidnaabimmesl 


CO LL LL, TTT SS Sess sets st > th ee 


el ee ee 
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HARDWARE TEST 


5766 030410 
030410 


5773 030446 


5778 oreste 


5789 030502 


5806 030566 


5761 


012767 


012701 
012702 
005003 
016704 
004767 
103120 


010214 


100466 


016470 
002425 


005670 
000040 


151552 
167642 


171630 
000764 
167622 


153244 
000010 


151510 
007402 
170001 
177777 


151710 


153314 


.SBTTL HARDWARE TEST 
7+ egoggo aoa oo ia igo i iii ik iii ee eee EE 


- Self-test fail test - 
This test verifies that the DUT will report selftest errors via the 


;* 


;* 
sx 
;* 
sx 
;* 


fifo. 


This is accomplished via a software ‘hook’ 


- STFAIL - 


And that the Diagnostic fail bit will indicate the error. 


in the self-test, which 


forces a "Procl to ram error” to be placed in the fifo. 


RR RR RR RIE EERE EERE EEE EEE EEE EERE EERE EEE EEE EE EES 
BGNTST 


a == TNUM «+ 1 


#TNUM, TSTNUM 
#-1, CTRLCF 


#1, ERRTYP 


#€M1301, ERRMSG 
#EROSO3, ERRBLK 
#1301. ,ERRNBR 


T13:: 
s; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
;SET UP THE TEST NUMBER. (13 

; INDICATE THAT WE ARE WITHIN A TEST. 

;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 
SET ERROR NUMBER TO 1301. 


;¢ 
; Wait up to 3 seconds for the DUT Master Reset bit to clear. 
If time-out occurs, then exit this test. 


#3000. ,R1 
#BITOS,R2 
R3 
CSRA,R4 
PC,MSLGET 
50$ 


;TIME-OUT VALUE IS 3.0 SECONDS. 
;WAITING FOR MASTER RESET BIT. 
;WAITING FOR BIT TO CLEAR. 

;BIT IS IN THE DUT’S CSR. 

;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
;GO REPORT ERROR IF MR DID NOT CLEAR. 


4 Reset the DUT, check for rom version 0. 
If Version 0 is found then exit this test. 


2s: 


4$: 


R2,(R4) 
PC,SKPSTS 
#500. ,R1 
PC,MSLGET 
50$ 


ERRNBR 

#8. ,RO 

R3 
RBUFA,R4 
(R4),R2 
50$ 

#7402 ,R2 
Salta 


sRESET THE Dt 

sSKIP THE SF + TEST. 

;PASS TIME-JuT VALUE OF ae MILLISECS. 

;WAIT FOR MR BIT TO CLEAR 

;GO REPORT ERROR IF TIME-OUT OCCURRED. 

;SET ERROR NUMBER TO 1302. 

;SET MAXIMUM READ COUNT. 

;CLEAR THE ROM VERSION 0 FLAG. 

;GET ADDRESS OF THE RECEIVER BUFFER REGISTER. 
sREAD A CODE FROM THE FIFO. 

;GO REPORT ERROR IF THE FIFO IS EMP 

;REMOVE THE LINE NUMBER AND PROC INDICATOR. 
;COMPARE WITH ROM VERSION #0 CODE. 

;ROM VERSION #0? NO, SKIP oe FLAG. 
;YES, SET THE ROM VERSION #0 FLAGS. 
;DECREMENT MAX READ COUNTER 

;LOOP IF 8 CODES HAVE NOT BEEN READ. 

;CHECK THE ROM VERSION #1 INDICATOR. 

;ROM VERSION 0 IN EITHER PROCESSOR? YES, EXIT. 


4 Reset the DUT, delay for 25 milli-seconds before writing the Fail_self_test 
; code to TBUFFCT register on channel 0 


SEQ 0151 





| 
i 
| 
| 


es wee we 


Jle2 
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5812 
5 


030570 


3 030576 


030602 
030606 


030614 


030642 


030644 
030650 


030654 
4 


030656 


030722 
030724 


030730 
030734 
030734 
030736 


030740 
030744 
030750 


030750 
030750 


012777 
012704 
004767 
012777 


005267 


103036 


005267 
032714 
001425 


005267 


001010 
005267 


012701 


104460 
000402 


004767 
005067 


104401 


- STFAIL - 


000040 
000031 
167472 
146314 


153150 
003720 
000040 


151406 
167476 


153120 
020000 


153106 
000010 


151352 


007400 
170231 


153040 
012012 


171520 
151402 


151446 


151446 


SEQ 0152 
MOV #BITOS,@CSRA Bae DUT MASTER RESET BIT, SELECT CHANNEL 0. 
MOV #25. ,R4 PASS DELAY PERIOD OF 25 MILLI SECS. 
JSR PC,DELAY WAIT FOR SELFTEST TO INITIALISE. 


MOV #146314, QTXBFCA ;WRITE THE FAIL SELF-TEST CODE TO TBUFFCT REG. 


; “Wait up to 2 seconds for the self-test to complete. 
; If time-out occurs, then exit this test. 


INC ERRNBR ;SET ERROR NUMBER TO 1303. 

MOV #2000. ,R1 ;TIME-OUT VALUE IS 2.0 SECONDS. 

MOV #BITOS ,R2 ;PASS THE BIT MAP OF Has | BIT TO TEST. 
CLR R3 ;SET UP THE EXPECTED STATE. 

MOV CSRA,R4 ;BIT IS IN THE DUT'S CSR. 

JSR PC,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 
BCC 50$ ;GO REPORT ERROR IF MR DID NOT CLEAR. 


: Verify the dia ers fail bit is set, indicating the error. 
; Report error if diagnostic fail bit is clear. 


INC ERRNBR ;SET ERROR NUMBER TO 1304. 
BIT #BIT13,(R4) ;CHECK THE STATE OF THE DIAG_FAIL BIT. 
BEQ 10$ ;GO REPORT ERROR IF DIAG_FAIL BIT CLEAR. 


* Remove the 8 self-test codes form the fifo, and verify that at least 
; one is a Procl to ram error code (231). 


INC ERRNBR ;SET ERROR NUMBER TO 1305. 
MOV #8. ,RO SET MAXIMUM READ COUNT. 
CLR Ri ;CLEAR THE CORRECT CODE COUNTER. 
MOV RBUFA,R4 ;GET ADDRESS OF THE hte BUFFER REGISTER. 
6$: MOV (R4),R2 ;READ A CODE FROM THE FIFO. 
BPL 50$ ;GO REPORT ERROR IF THE FIFO IS EMPTY. 
BIC #7400,R2 ;REMOVE THE LINE NUMBER FROM THE CODE. 
CMPB- ss R2, #170231 ;IS IT THE CORRECT ERROR CODE?. 
BNE 8$ ; SKIP NEXT INSTRUCTION, IF NOT A 231 CODE. 
INC Ri ; INCREMENT COUNTER 
8$: DEC RO ;DECREMENT MAX READ COUNTER 
BNE 6$ ;LOOP IF 8 CODES HAVE NOT BEEN READ. 
TST Ri ;WERE ANY 231 CODES FOUND?. 
BNE 60$ ;YES, THEN EXIT. 
INC ERRNBR ;NO, + a NUMBER TO 1306 AND REPORT ERROR. 
;Report Self-test error reporting be 
10$: MOV #EM1302,R1 SELECT ERROR ae, 
ERROR ;REPORT ERROR >>>>> ERROR <<<<< 


TRAP CSERROR 
BR 60$ s;EXIT THE TEST. 


50$: JSR PC, TSABRT sREPORT NON-RELATED TEST ERROR. 
60$: CLR CTRLCF sINDICATE THAT WE COMPLETED THE TEST. 
ENDTST 


L10042: 
TRAP CSETST 


me ed ee ee ww. 








K1e 
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5875 030752 
030752 


5877 030752 
5878 030760 
5879 030766 
5880 030774 
444 031002 


5886 031010 
5887 031014 
5888 031020 
5889 031022 
5890 031026 
5891 031032 


5895 031034 


444 031052 


5907 031054 
5908 031060 
5909 031064 
5910 031066 
4443 031074 


5913 031100 
ste 031104 


5918 031106 
5919 031112 


000016 
012767 
012767 
012767 
012767 
012767 


012701 
012702 
005003 
016704 
004767 
103131 


010214 
004767 
012701 
004767 
103121 


012705 
012703 
010304 
012767 
012701 


017702 
100077 


012700 
040200 


- STFAIL - 


000016 
177777 
000001 
012051 
016470 


005670 
000040 


151216 
167306 


171274 
005670 
167266 


000040 
000143 


002571 
012101 


151142 


000301 


151346 
151364 
152772 
152770 
152764 


152674 


.SBTTL HARDWARE TEST - ROMVER - 

POM tt tii IIIT TT Tiree TPP TP PP PrP T it tit ti titi ttt tt ttt ttt ttt TT TT TTT TTT TTT TTT Tet 
* - Rom Version Test - 

* This test verifies that the DUT's Self-Test places valid Rom version 

* numbers in the fifo after it has been skipped. The Rom version numbers 
* will be reported (on the first pass only), if an affirmative answer 

& was given to the software P-table question. 

x 


RRR RR KR RRR ERR EEE EKER EERE REE EERE EEE EEE AREER EEEERE RED 
BGNTST 


T14:: 
TNUM == TNUM + 1 ; INCREMENT THE yt TIME a | om. 


MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. 1 
MOV #-1,CTRLCF sINDICATE THAT WE ARE WITHIN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #EM1401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #EROSO3,ERRBLK ;SET ERROR ROUTINE ADDRESS IN ERROR TABLE. 


3+ 
; Wait up to 3 seconds for the DUT Master Reset bit to clear. 
; If time-out occurs, then exit this test. 


MOV #3000. ,R1 ;TIME-OUT VALUE IS 3.0 SECONDS. 


MOV #BITOS,R2 ;WAITING FOR MASTER RESET BIT. 

CLR R3 ;WAITING FOR BIT TO CLEAR. 

MOV CSRA,R4 ;BIT IS IN THE DUT’S CSR. 

JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 

BCC 50$ ;ABORT THE TEST IF MR DID NOT CLEAR. 
;* 
; Set the Master Reset bit, and skip the self test. 
‘ MOV R2,(R4) ;SET THE MASTER RESET BIT. 

JSR PC,SKPSTS ;SKIP THE SELF TEST 


MOV #3000. ,R1 ;TIME-OUT VALUE IS 3.0 SECONDS. 

JSR PC ,MSLGET ;WAIT FOR DUT_CSR_MR BIT TO CLEAR. 

BCC 50$ ;ABORT THE TEST IF MR DID NOT CLEAR. 
Hed 
; Remove characters from the FIFO until either; 
; (a) The FIFO is purged, 9° report the error. 
; (b) The maximum try counter is zero, go report the error. 
; (c) PROC_1's rom version number was found before PROC_2's, go report error. 
; (d) Both ROM version numbers have been found. 


MOV eae ;SET MAXIMUM TRY COUNTER. 


MOV 9.,R3 ;SET AN INVALID ROM VERSION NUMBER FOR PROC_1. 
MOV R3,R4 ;SET AN INVALID ROM VERSION NUMBER FOR PROC_2. 
MOV #1401. ,ERRNBR ;SET THE ERROR NUMBER TO 1401. 
MOV #EM1402,R1 ;SELECT MESSAGE TO BE REPORTED IF FIFO EMPTY. 
2s: MOV ARBUFA,R2 ;READ THE NEXT CHAR FROM THE FIFO. 
BPL 12$ ;GO REPORT ERROR IF FIFO EMPTY. 
; Check if the read data is a BMP code. 
, MOV #301,RO0 ;SET-UP A BIT MASK OF A BMP CODE. 
BIC R2,RO ;TRY TO CLEAR THE BIT MASK WITH THE READ DATA. 


SEQ 0153 
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031114 
031116 
031122 


031124 
031130 
031132 


2 
031134 


031140 


031200 


031202 
031206 
031214 


031216 
031220 
031222 
031226 
031234 


031236 


031276 


012700 
040200 
001431 


032702 
001407 
010204 
042704 
000241 
006004 
006004 
000417 
010203 
042703 
000241 
006003 
006003 
020427 
001016 


012701 
012767 
000433 


005305 


000423 


032767 


062706 


- ROMVER - 


171146 


000201 


000002 


177603 


177603 


000143 


012167 
002572 


012242 
002573 


000001 
151060 


004214 
000003 


000010 


152554 


152534 


150762 
000001 


SEQ 0154 
BNE 4$ ;BRANCH IF NOT A BMP CODE. 
— s SAVE THE BMP CODE ON THE QUEUE. 
; Check if the read data is a self-test code. 
4$: MOV #201,RO0 ;SET-UP A BIT MASK OF A SELFTEST CODE. 
BIC R2,RO0 ;TRY TO CLEAR THE BIT MASK WITH THE READ DATA. 
BEQ 8$ ;BRANCH IF IT IS A SELFTEST CODE. 
; The read data is a ROM version number, determine which one it is. 
BIT #BIT1,R2 ;CHECK THE PROCESSOR NUMBER BIT IN THE CODE. 
BEQ 6$ ;BRANCH IF IT IS PROC_1 ROM _— NUMBER. 
MOV R2,R4 ;SAVE PROC_2 ROM VERSION NUMBER 
BIC #177603 ,R4 ;CLEAR ANY UNWANTED BITS. 
CLE ;CLEAR THE CARRY BIT. 
ROR R4 ; SHIFT THE CODES ALONG TO GET THE ROM 
a os ; VERSION NUMBER IN THE LOW 5 BITS. 
6$: MOV R2,R3 ;SAVE PROC_1 ROM VERSION NUMBER. 
BIC #177603 ,R3 ;CLEAR ANY UNWANTED BITS. 
CLe ;CLEAR THE CARRY BIT. 
ROR R3 ;SHIFT THE CODE ALONG TO GET THE ROM 
ROR 3 ; VERSION NUMBER IN THE LOW 5 BITS. 
CMP R4, #99, ;CHECK IF WE HAVE RECEIVE PROC_2 ROM CODE. 
BNE 10$ ;GO REPORT BOTH ROM VERSION NUMBERS. 
; Received ROM version numbers out of sequence. 
; ie, Proc_1's ROM version number found in the fifo before Proc_2's 
MOV #EM1403,R1 ;SELECT THE ERROR — TO BE REPORTED. 
MOV #1402.  ERRNBR ;SET THE ERROR NUMBER 
BR 12$ ;G0 REPORT ERROR. 
8$: DEC RS sDECREMENT THE MAX TRY COUNTER. 
BNE 2s ;LOOP TO GET THE NEXT CHAR FROM THE FIFO. 
MOV #EM1404,R1 SELECT THE ERROR MESSAGE TO BE REPORTED. 
MOV #1403. ,ERRNBR ;SET THE ERROR NUMBER 
BR 12$ ;GIVE UP, GO REPORT ERROR. 
; "re this is the first pass, and software P-table question was answered YES, 
; then report the rom version numbers to the operator. 
ios: BIT #BITO,OPTION ;CHECK ON THE STATE OF THE SOFTWARE SWITCH. 
BEQ 60$ ;EXIT IF | ROM VERSION a gt el WAS REQUESTED. 
MP PASCNT, #1 ;CHECK IF THIS IS THE FIRST PASS. 
BGT 60$ ;EXIT IF ROM VERS HAVE ALREADY BEEN REPORTED. 
PRINTB #EF1401,R3,R4 ;PRINT THE ROM VERSION NUMBERS. 
MOV R4,-SP) 
MOV R3,-CSP) 
MOV #EF 1401, -(SP) 
MOV oS -(SP ) 
MOV P,RO 
TRAP C$PNTB 
ADD #10,SP 


———— ee ll tt ta 








Mie 
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SEQ 015 
HARDWARE TEST - ROMVER - 5 
sere 031302 000412 BR 60$ sEXIT THIS TEST. 
ral | ; Error reports: 
5974 031304 012767 016562 152462 12$: MOV #ER1401,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE. 
5975 031312 ERROR ;REPORT ERROR. >>>>> ERROR <<<<< 
031312 104460 TRAP CSERROR 
rade J 031314 000405 BR 60$ 
5978 031316 012767 002575 152444 503: MOV #1405. ,ERRNBR ;SET UP ERROR NUMBER FOR TSABRT RTN. 
sda 031324 004767 171134 JSR PC, TSABRT ;REPORT NON-TEST RELATED ERROR. 
4444 031330 005067 151016 60$: CLR CTRLCF ; INDICATE THAT WE COMPLETED THE TEST. 
5983 031334 ENDTST 
031334 L10043: 


031334 104401 TRAP CSETST 


’ 
ee ee 


ee ee ee 


ee eee ee ee + + 
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HARDWARE TEST - REGWRW - 
5985 -SBTTL HARDWARE TEST - REGWRW - 
5986 OMe T IIIT OTT TTT Tr rrr iii iii titi titi iti iii ti ttt TTT TTT TTT TTT TTTTTT TTT TTT 
4444 rs - Device Register Word Access Read and Write Test - 
5989 “ This test verifies that the device registers can be read and written 
bbe * correctly using word accesses. 
;* 

tae eM TTII LiLo TTT T TTT Tri rir iti iii titi tii tititittiitit ttt titi iti ti ttt TTT TT tt 
5994 031336 BGNTST 

031336 T15:: 
5995 000017 TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
5996 031336 012767 000017 150762 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (16) 
5997 031344 012767 177777 151000 MOV #-1,CTRLCF ; INDICATE THAT WE ARE WITHIN A TEST. 
5998 031352 012767 000001 152406 MOV #1,ERRTYP ;SET UP DEVICE FATAL INDICATOR IN ERROR TYPE. 
5999 031360 012767 003101 152402 MOV #1601.,ERRNBR ;SET UP ERROR NUMBER IN THE ERROR TABLE. 
6000 031366 012767 012445 152376 MOV #EM1604,ERRMSG ;SET UP ERROR MESSAGE FOR TEST IN ERROR TABLE. 
6001 031374 005067 151062 CLR ERSMRF ;CLEAR THE ERROR SUMMARY FLAGS. 
6002 031400 012700 002464 MOV #ERCNTB,RO 
044 031404 004767 166570 JSR PC,CLR16W ;CLEAR THE ERROR COUNTER TABLE. 
6005 ;  Recet the DUT to a known state, do not remove the status codes from the fifo. 

; Clear TX and RX interrupt enable bits in the CSR. 

444 ; This subroutine reports errors >>>>> 1601 <<<<<, 
6009 031410 004767 170042 JSR PC,RESETT sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
6010 031414 103402 BCS +6 ;FATAL RESET ERROR? NO, CONTINUE WITH TEST. 
oats 031416 000167 000116 JMP 60$ ;YES, EXIT THE TEST. 
rth ; Verify read/write capability to indirect address field of CSR 
6015 031422 005267 152342 INC ERRNBR ;SET THE ERROR REPORT NUMBER TO 1602. 
6016 031426 012702 000017 MOV #17,R2 ;SET LOOP COUNT. 
6017 031432 016704 150606 MOV CSRA,R4 ;GET CSR ADDRESS 
6018 031436 010214 2$: MOV R2,(R4) ;WRITE COUNT TO CSR. 
6019 031440 011401 MOV (R4),R1 ;READ BACK THE CONTENTS OF THE CSR 
6020 031442 042701 177760 BIC #177760,R1 ;MASK OUT ALL BUT THE IND.ADR.REG FIELD. 
6021 031446 020102 CMP rt ta ;CHECK FOR CORRECT DATA WRITTEN/READ. 
6022 031450 001406 BEQ 4$ 31S EXPECTED DATA BAD? NO, SKIP ERROR REPORT. 
6023 sReport "BAD BIT(S) IN DEVICE CSR REGISTER FOR LINE 0 (D).” 
6024 031452 012767 016712 152314 MOV #ER1601,ERRBLK ;SELECT THE PROPER ERROR REPORT ROUTI 
6025 031460 005003 CLR R3 ;SET OFFSET TO O TO CAUSE REPORT OF ton "REG. 
6026 031462 005005 CLR RS ;CAUSE REPORT OF LINE O. 
6027 031464 ERROR ; »>>>> ERROR @ 1602 <<<<< 

021464 104460 TRAP CSERROR 
6028 03.466 005302 4$: DEC R2 ;DECREMENT LOOP COUNT/IND.ADD.REG ADDRESS. 
sone 031470 002362 BGE 2s ;LOOP BACK TO TEST NEXT ADDRESS IF NOT DONE. 
6031 ; "unite and verify 16 date patterns in all used bits of all re jotere on all 
6032 ; active lines. Before writing each pattern, clear all the 
oot ; REGTST routine reports errors with numbers »>>>> ERROR 1608" - 1605 <<ccc, 
6035 031472 005267 152272 INC ERRNBR ;SET THE ERROR NUMBER TO 1603. 
6036 031476 005003 CLR RS s INDICATE THAT WORD Ae Sses = TO BE USED. 
6037 031500 012704 000002 MOV #2,R4 sINDICATE R/W ACCESS, CLEAR FIRST. 
6038 031504 004767 167510 JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS: 

* 





SEQ 0156 


—_—————ae eee See 
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6044 031510 012767 
6045 031516 005003 
6046 031520 005404 
6047 031522 004767 


6049 
6050 
6051 
6052 031 012767 
6053 031534 004767 
6054 031540 005067 
6055 031544 

031544 


031544 104401 


00 
167670 
50606 


003106 


167472 


3111 
1 


152252 


152234 


; Write and verify 16 date patterns in all used bits of all — ve isters on all 
active lines. Before writing each pattern, set all the s. 


;  REGTST routine reports errors with numbers >>>>> ERROR 1606 - 1608 <<<<<. 


MOV #1606.,ERRNBR ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 
CLR R3 sINDICATE THAT WORD ACCESSES ARE TO BE USED. 
NEG R4 s INDICATE R/W ACCESS, SET FIRST. 
JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 
3* 


; Print error summary reports if necessary. 
; The following routine reports errors with number >>>>> ERROR #@ 1609 <<<<< 


MOV tg .ERRNBR sSET UP ERROR NUMBER FOR NEXT RTN 


JSR PC,REPSMR ;REPORT ERROR SUMMARY IF NECESSARY. 
60$: CLR CTRLCF INDICATE THAT WE COMPLETED THE TEST. 
ENDTST 
L10044 


TRAP CSETST 


SEQ 0157 


OS OO 
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031610 
031614 


031620 
031624 
031626 


031632 


031666 
031674 
031676 
031700 
031700 
031702 
031704 


031706 
031712 
031714 
031720 


004767 
103402 
000167 


005267 
012702 
016704 
042714 
050214 
011401 
042701 
020102 
001406 


012767 
005003 
005005 


104460 
005302 
002360 


005267 
005003 
012704 
004767 


- REGWRM - 


000020 
177777 
000001 
003245 
012513 
150652 
002464 
166360 


167632 
000122 


152132 
000017 
150376 
000017 


177760 


016712 


152056 


00000" 
167274 


150552 
150570 
152176 
152172 
152166 


152100 


.SBTTL HARDWARE TEST - REGWRM - 
Ett CHR REEEEREE EEE EEE EES EEEREEREEEREEEREREEEEESEREEEES AREER EERE SEER EE EEE EES 


- Device Register Word Access Read/Modify/Write Test - 


;* 


;* 
;* This test verifies that the device registers can be written correctly 
;* using word read/modify/write accesses. 


Fr — SRSA REESE EEE EEE E ERE REE REE EE EEE EEE EEE EE EERE SE EEEEEEEEEEEEEEEES 


;¢ 


2$: 


4$: 


BGNTST 


TNUM == TNUM «+ 1 


T16:: 
s; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
NUMBER (17) 


#TNUM, TSTNUM ;SET UP THE TEST P 
#-1,CTRLCF sINDICATE THAT WE ARE WITHIN A TEST. 
#1,ERRTYP sSET UP DEVICE FATAL INDICATOR IN ERROR TYPE. 


#1701.,ERRNBR ;SET UP ERROR NUMBER IN THE ERROR TABLE. 
#€M1701,ERRMSG ;SET UP ERROR MESSAGE FOR TEST IN ERROR TABLE. 
yt ol RO sCLEAR THE ERROR SUMMARY FLAGS. 


PC,CLR16W ;CLEAR THE ERROR COUNTER TABLE. 


‘ Reset the DUT to a known state, do not remove the status codes from the fifo. 


Clear TX and RX interrupt enable bits in the CSR. 
This subroutine reports errors >>>>> 1701 <<<<<, 


JSR PC ,RESETT sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS +6 sFATAL RESET ERROR? NO, CONTINUE WITH TEST. 
JMP 60$ ;YES, EXIT THE TEST. 
; Verify read/modify/write capability to indirect address field of CSR 

INC ERRNBR ;SET THE ERROR REPORT NUMBER TO 1702. 

MOV #17,R2 ;SET LOOP COUNT. 

MOV CSRA,R4 ;GET CSR ADDRESS. 

BIC #17,(R4) ;CLEAR THE DUT CSR USING READ/MODIFY/WRITE. 
BIS R2,(R4) s;WRITE COUNT TO CSR USING READ/MODIFY/WRITE. 
MOV (R4),R1 sREAD BACK THE CONTENTS OF THE CSR 

BIC #177760,R1 sMASK OUT ALL BUT THE IND.ADR.REG FIELD. 

CMP R1,R2 ;CHECK FOR CORRECT DATA WRITTEN/READ. 
BEQ 4$ ;IS EXPECTED DATA BAD? NO, SKIP ERROR REPORT. 

sReport “BAD BIT(S) IN DEVICE CSR REGISTER FOR LINE 0 (D).” 

MOV #ER1601,ERRBLK ;SELECT THE PROPER ERROR REPORT ROUTINE. 

CLR R3 ;SET OFFSET TO 0 TO CAUSE REPORT OF CSR REG. 
CLR RS ;CAUSE REPORT OF LINE 0. 
ERROR 3 »>>>>> ERROR # 1702 «<<c< 

TRAP CSERROR 

DEC R2 ;DECREMENT LOOP COUNT/IND.ADD.REG ADDRESS. 
BGE 2$ ;LOOP BACK TO TEST NEXT ADDRESS IF NOT DONE. 


3; 


Write and v 


erify 16 data patterns in all used bits ofall registers on all 


active lines using R/M/W. Before writing each pattern, clear all the bits. 
REGTST routine reports errors with numbers »>>>> ERROR 1703 - 1705 <<<<<, 


ERRNBR ;SET THE ERROR NUMBER TO 1703. 

R3 sINDICATE THAT WORD ACCESSES ARE TO BE USED. 
#1,R4 sINDICATE R/M/W ACCESS, CLEAR FIRST. 
PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


SEQ 0158 
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"HARDWARE TEST 


6117 031724 
6118 031732 


| 6119 031734 
6120 031736 


6125 031742 
6126 031750 
6127 031754 
6128 031760 
031760 
031760 


012767 


012767 
004767 
005067 


104401 


003252 


167256 


003255 


167454 
150372 


SEQ 0159 


; Write and verify 16 data er + in all used bits of all registers on all 
+ active lines using R/M/W. Before writing each pattern, set all the bits. 
; REGTST routine reports errors with numbers »>>>>> ERROR 1706 - 1708 <<<<<. 
152036 MOV #1706.,ERRNBR ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 
CLR R3 ;INDICATE THAT WORD ACCESSES ARE TO BE USED. 
NEG R4 ;INDICATE R/M/W ACCESS, SET FIRST. 
JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 
; Print error summary reports if necessary. 
; The following routine reports errors with number >>>>> ERROR # 1709 <«<<< 
152020 MOV #1709.,ERRNBR ;SET UP ERROR NUMBER FOR NEXT RTN. 
JSR PC,REPSMR sREPORT ERROR SUMMARY IF NECESSARY. 
60$: CLR CTRLCF ;INDICATE THAT WE COMPLETED THE TEST. 
ENOTST 
L10045: 


TRAP CSETST 


a | 


I tes st stn net seers mee 


a 
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SEQ 0160 
HARDWARE TEST - REGBRW - 
6130 -SBTTL HARDWARE TEST - REGBRW - 
6131 POMEL ti Li Titi si itr er rrr TPT Pr rit itt ti ttt tt ttt ttt tT TT TTT TTT TT TT TTTTTTTTT TT TTT 
sist i+ - Device Register Byte Access Read and Write Test - 
;* 

6134 ;* This test verifies that the device registers can be read and written 
ores ;* correctly using byte accesses. 
th Fa EERE EERE E EERE EERE EERE AEE EERE EEE REREEEEEEEEEEEEEEEEEEE EES 
61 
6139 031762 BGNTST 

031762 T17 
6140 000021 TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME. TEST COUNTER. 
6141 031762 012767 000021 150336 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (18) 
6142 031770 012767 177777 150354 MOV #-1,CTRLCF ; INDICATE THAT WE ARE WITHIN A TEST. 
6143 031776 012767 000001 151762 MOV #1,ERRTYP ;SET UP DEVICE FATAL INDICATOR IN ERROR TYPE. 
6144 032004 012767 003411 151756 MOV #1801.,ERRNBR  ;SET UP ERROR NUMBER IN THE ERROR TABLE. 
6145 032012 012767 012570 151752 MOV #EM1801,ERRMSG ;SET UP ERROR MESSAGE FOR TEST IN ERROR TABLE. 
6146 032020 005067 150436 CLR ERSMRF ;CLEAR THE ERROR SUMMARY FLAGS. 
6147 032024 012700 002464 MOV #ERCNTB,RO 
oiss 032030 004767 166144 JSR PC,CLR16W ;CLEAR THE ERROR COUNTER TABLE. 
6150 ; ‘Raget the DUT to a known state, do not remove the status codes from the fifo. 
6151 ; Clear TX and RX interrupt enable bits in the CSR. 
oiee ; This subroutine reports errors >>>>> 1801 <<<<<, 
6154 032034 004767 167416 JSR PC,RESETT ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
6155 032040 103402 BCS .+6 sFATAL RESET ERROR? NO, CONTINUE WITH TEST. 
6156 032042 000167 000152 JMP 60$ sYES, EXIT THE TEST. 
ote 032046 012767 003412 151714 MOV #1802.,ERRNBR ;SET THE ERROR REPORT NUMBER TO 1802. 
6159 ; Verify read/write capability to indirect address field of CSR. 
6160 ; Use byte accesses. 
6161 ;* 
6162 032054 012702 000017 MOV #17,R2 ;SET LOOP COUNT. 
6163 032060 016704 150160 MOV CSRA,R4 ;GET CSR ADDRESS. 
6164 032064 110214 2$: MOVB R2,(R4) ;WRITE COUNT TO CSR. 
6165 032066 111401 MOVB (R4),R1 sREAD BACK THE CONTENTS OF THE CSR 
6166 032070 042701 177760 BIC #177760, R1 sMASK OUT ALL BUT THE IND.ADR.REG FIELD. 
6167 032074 020102 CMP | ;CHECK FOR CORRECT DATA WRITTEN/READ. 
6168 032076 001406 BEQ 4$ ;IS EXPECTED DATA BAD? NO, SKIP ERROR REPORT. 
6169 ;Report “BAD BIT(S) IN DEVICE CSR REGISTER FOR LINE 0O (D)." 
6170 032100 012767 016712 151666 MOV #ER1601,ERRBLK ;SELECT THE PROPER ERROR REPORT ROUTINE. 
6171 032106 005003 CLR R3 ;SET OFFSET TO 0 TO CAUSE REPORT OF CSR REG. 
6172 032110 005005 CLR RS ;CAUSE REPORT OF LINE 0. 
6173 032112 ERROR 3 >>>>> ERROR # 1802 <<<<< 

032112 104460 TRAP CSERROR 
6174 032114 005302 4$: DEC R2 ;DECREMENT LOOP COUNT/IND.ADD.REG ADDRESS. 
ey 032116 002362 BGE 2$ ;LOOP BACK TO TEST NEXT ADDRESS IF NOT DONE. 
6177 ; "urite and verify 16 data patterns in all used bits of all lower bytes of all 
6178 ; registers on all active lines. Use READ/WRITE accesses. Before writing 
6179 ; each pattern, clear all the used bits of all active registers 
cist ; REGTST routine reports errors with numbers »>>>>> ERROR 1803 - 1805 KKKKK, 
6182 032120 005267 151644 INC ERRNBR ;SET THE ERROR NUMBER TO 1803. 
6183 032124 012703 177777 MOV #-1,R3 ; INDICATE THAT LO BYTE ACCESSES ARE TO BE USED. 
6184 032139 012704 000002 MOV #2,R4 ; INDICATE R/W ACCESS, CLEAR FIRST. 


F13 


_CVDHACO DHV11-M FUNC TST PART 1 MACRO YOS.02 Monday 01-Apr-85 07:47 Page 118-1 
- REGBRW - 


[HARDWARE TEST 
| 6185 032134 


6193 032146 
6194 032150 


00 
6201 032154 
6202 032162 
6203 032164 
6204 032166 


6211 032172 
6212 032200 
6213 032202 


6218 032206 
6219 032214 
6220 032220 
6221 032224 
032224 
032224 


6192 032140 


004767 


012767 
005403 
004767 


012767 
005403 
005404 
004767 


012767 
005403 
004767 


012767 
004767 
005067 


104401 


167060 


003416 
167044 


003421 


167026 


003424 
167012 


003427 
167210 
150126 


151622 


151606 


151570 


151554 


JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


4 Write and verify 16 data patterns in all used bits of all “a bytes of all 
; fegisters on all active lines. Use READ/WRITE accesses. Before writing 
; each pattern, clear all the used bits of all active registers 


REGTST routine reports errors with numbers »>>>>> ERROR 1806. - 1808 <<<<<, 


MOV #1806.,ERRNBR ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 


NEG R3 ; INDICATE THAT HI BYTE ACCESSES ARE TO BE USED. 


JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


"unite and verify 16 data patterns in all used bits of all lower bytes of all 
registers, on all active lines. Use READ/WRITE accesses. pores writing 
each pattern, set all the used bits of all active register 


MOV #1809.,ERRNBR ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 


NEG R3 ; INDICATE THAT LO BYTE ACCESSES ARE TO BE USED. 
NEG R4 ;INDICATE R/W ACCESS, SET FIRST 
JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


Write and verify 16 data patterns in all used bits of all high bytes of all 
registers on all active lines. Use READ/WRITE accesses. Before writing 
each pattern, set all the used bits of all active registers 


MOV - #1812.,ERRNBR  ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 


NEG R3 ; INDICATE THAT HI BYTE ACCESSES ARE TO BE USED. 


JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


“Print error summary reports if necessary. 
The following routine reports errors with number >>>>> ERROR # 1815 <<<<< 


MOV #1815.,ERRNBR ;SET UP ERROR NUMBER FOR NEXT RTN. 


JSR PC,REPSMR ;REPORT ERROR SUMMARY IF NECESSARY. 
60$: CLR CTRLCF ;INDICATE THAT WE COMPLETED THE TEST. 
ENDTST 
L10046: 


TRAP CSETST 


REGTST routine reports errors with numbers »>>>>> ERROR 1809 - 1811 <<<cc, 


REGTST routine reports errors with numbers »>>>>> ERROR 1812 - 1814 <<<<<, 


ee 


ee ee ee 
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SEQ 0162 
_ HARDWARE TEST ’ - REGBRM - 
' 6223 .SBTTL HARDWARE TEST - REGBRM - 
6224 Cee TET Ti PPP PPP Piette iti iit itt teeter et ee ee ee ee en 
| ates ;* - Device Register Byte Access Read/Modify/Write Test - 
mm - 
6227 ;* This test verifies that the device registers can be read and written 
| ocss ;* correctly using byte accesses in Read/Modify/Write mode. 
;* 
ratty BIRR RR KKK EE EERE EERE AEEEEEEEE EERE EEREEEREREEE 
1 
6232 032226 BGNTST 
032226 T18:: 
6233 000022 TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
6234 032226 012767 000022 150072 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (19) 
6235 032234 012767 177777 150110 MOV #-1,CTRLCF ; INDICATE THAT WE ARE WITHIN A TEST. 
6236 032242 012767 000001 151516 MOV #1,ERRTYP ;SET UP DEVICE FATAL INDICATOR IN ERROR TYPE. 
6237 032250 012767 003555 151512 MOV #1901. ,ERRNBR ;SET UP ERROR NUMBER IN THE ERROR TABLE. 
6238 032256 012767 012636 151506 MOV #EM1901,ERRMSG ;SEf UP ERROR MESSAGE FOR TEST IN ERROR TABLE. 
6239 032264 005067 150172 CLR ERSMRF ;CLEAR THE ERROR SUMMARY FLAGS. 
6240 032270 012700 002464 MOV #ERCNTB,RO 
otk 032274 004767 165700 JSR PC,CLR16W ;CLEAR THE ERROR COUNTER TABLE. 
;¢ 
6243 ; Reset the DUT to a known state, do not remove the status codes from the fifo. 
6244 ; Clear TX and RX interrupt enable bits in the CSR. 
oeee ; This subroutine reports errors >>>>> 1901 <<<<<, 
6247 032300 004767 167152 JSR PC,RESETT ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
6248 032304 103402 BCS +6 sFATAL RESET ERROR? NO, CONTINUE WITH TEST. 
6249 032306 000167 000156 JMP 60$ ;YES, EXIT THE TEST. 
oeae 032312 012767 003556 151450 MOV #1902. ,ERRNBR ;SET THE ERROR REPORT NUMBER TO 1902. 
6252 ; Verify read/write capability to indirect address field of CSR. 
th ; Use byte accesses. 
6254 $- 
6255 032320 012702 000017 MOV #17,R2 ;SET LOOP COUNT. 
6256 032324 016704 147714 MOV CSRA,R4 ;GET CSR ADDRESS. 
6257 032330 142714 000017 2$: BICB #17,(R4) ;CLEAR THE DUT CSR USING READ/MODIFY/WRITE. 
6258 032334 150214 BISB R2,(R4) s;WRITE COUNT TO CSR USING READ/MODIFY/WRITE. 
6259 032336 111401 MOVB (R4),R1 sREAD BACK THE CONTENTS OF THE CSR 
6260 032340 042701 i77760 BIC #177760,R1 ;MASK OUT ALL BUT THE IND.ADR.REG FIELD. 
6261 032344 020102 CMP R1i,R2 ;CHECK FOR CORRECT DATA WRITTEN/READ. 
6262 032346 001406 BEQ 4$ ;IS EXPECTED DATA BAD? NO, SKIP ERROR REPORT. 
6263 sReport “BAD BIT(S) IN DEVICE CSR REGISTER FOR LINE 0 (D).” 
6264 032350 012767 016712 151416 MOV #ER1601,ERRBLK ;SELECT THE PROPER ERROR REPORT ROUTINE. 
6265 032356 005003 CLR R3 ;SET OFFSET TO 0 TO CAUSE REPORT OF CSR REG. 
6266 032360 005005 CLR RS ;CAUSE REPORT OF LINE 0. 
6267 032362 ERROR 3 >>>>> ERROR # 1902 <<cc< 
032362 104460 TRAP CSERROR 
6268 032364 005302 4$: DEC R2 ;DECREMENT LOOP COUNT/IND.ADD.REG ADDRESS. 
aH 032366 002360 BGE 2$ ;LOOP BACK TO TEST NEXT ADDRESS IF NOT DONE. 
6271 ; Write and verify 16 date patterns in all used bits of all lower bytes of all 
6272 +;  mregisters on all active lines. Use READ/MODIFY/WRITE accesses. Before 
6273 : gait” each pattern, clear all the used bits of all active registers. 
bens ; REGTST routine reports errors with numbers »>>>>> ERROR 1903 - 1905 <<<<<, 
6276 032370 005267 151374 INC ERRNBR ;SET THE ERROR NUMBER TO 1903. 


; 6277 032374 012703 177777 MOV #-1,R3 sINDICATE THAT LO BYTE ACCESSES ARE TO BE USED. 


ee —e at + cate 


' 
ee | 


se seen ae eee 


ee ee 
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6278 
6279 
0 


032400 
032404 


032410 
032416 
032420 


032424 
032432 
032434 
032436 


032442 
032450 
032452 


032456 
032464 
032470 
032474 
032474 
032474 


012704 
004767 


012767 
005403 
004767 


012767 
005403 
005404 
004767 


012767 
005403 
004767 


012767 
004767 
005067 


104401 


- REGBRM - 


000001 
166610 


003562 
166574 


003565 


166556 


003570 
166542 


003573 
166740 
147656 


151352 


151336 


151320 


151304 


MOV #1,R4 sINDICATE R/M/W ACCESS, CLEAR FIRST. 
JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


;¢ 

; Write and verify 16 data patterns in all used bits of all high bytes of all 
; registers on all active lines. Use READ/MODIFY/WRITE accesses. Before 

; titine each pattern, clear all the used bits of all active registers. 


oa accra, ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 

JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 
3+ 
; Write and verify 16 data patterns in all used bits of all lower bytes of all 
+  negisters on all active lines. Use READ/MODIFY/WRITE accesses. Before 
; gshit. each pattern, set all the used bits of all active registers. 
; REGTS 
‘ MOV #1909. ,ERRNBR ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 


;INDICATE THAT HI BYTE ACCESSES ARE TO BE USED. 


NEG R3 sINDICATE THAT LO BYTE ACCESSES ARE TO BE USED. 


NEG R4 ;INDICATE R/M/W ACCESS, SET FIRST. 
JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


3+ 

; Write and verify 16 data patterns in all used bits of all high bytes of all 
+ registers on all active lines. Use READ/MODIFY/WRITE accesses. Before 

; the. each pattern, set all the used bits of all active registers. 


MOV #1912.,ERRNBR ;SET UP ERROR NUMBER FOR REGTST ROUTINE. 


NEG R3 sINDICATE THAT HI BYTE ACCESSES ARE TO BE USED. 


JSR PC,REGTST ;WRITE AND VERIFY DATA PATTERNS. 


+ 
; Print error summary reports if necessary. 
; The following routine reports errors with number >>>>> ERROR # 1915 <«<<<< 


; MOV #1915.,ERRNBR ;SET UP ERROR NUMBER FOR NEXT RTN. 
JSR PC,REPSMR ;REPORT ERROR SUMMARY IF NECESSARY. 
60$: CLR CTRLCF ;INDICATE THAT WE COMPLETED THE TEST. 


ENDTST 
L10047: ' 


RAP CSETST 


routine reports errors with numbers »>>>>> ERROR 1906 - 1908 <<<<<, 


routine reports errors with numbers »>>>>> ERROR 1909 - 1911 <<<<<, 


routine reports errors with numbers »>>>>> ERROR 1912 - 1914 «<«<<<, 


SEQ 0163 


Se ee ee 


a ee ee 


me ae 


113 
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- IDBIT - 


| HARDWARE TEST 


6325 032476 
032476 


6331 032526 


6337 032534 
6338 032540 


6342 032542 


032602 


Q12767 


004767 
103016 


017701 
032701 
001411 
012767 
012701 
012767 


104460 
005067 


104401 


000023 
177777 
000001 
003721 
012713 


166716 


147504 
000400 


003722 


012755 
016470 


147550 


147622 
147640 
151246 
151242 
151236 


151206 
151200 


.SBTTL HARDWARE TEST - IDBIT - 
OMIT ti iiti iit iittt titi titi iiiitttitiiittititiititititiittiitt ttt ttt ttt tt ttt 
;* - Device Register ID Bit Test - 
;* 
;* This test verifies that the DUT STAT register ID bit reads as clear. 
ME TTCTTCT TTT TTOTTCTTTTTTCTTTCTTCT TTT TTT TTOTT TCT T CTT TTTPOTTT TET TTT TTT TT TTT TTT 
BGNTST ne 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (20) 
MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET UP DEVICE FATAL INDICATOR IN ERROR TYPE. 


MOV #2001.,ERRNBR ;SET UP ERROR NUMBER IN THE ERROR TABLE. 
MOV #EM2001,ERRMSG ;SET UP ERROR MESSAGE FOR TEST IN ERROR TABLE. 


;* 

; Reset the DUT to a known state, do not remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR 

; This subroutine reports errors >>>>> 2001 <<<<<, 


JSR PC,RESETT ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCC 60$ ;FATAL RESET ERROR? YES, EXIT THE TEST. 
;* 
; Read the STAT register ID bit and verify that it is clear. 
MOV @STATA,R1 ;READ THE STAT REGISTER CONTENTS. 
BIT #BIT8,R1 ;CHECK THE ID BIT 
BEQ 60$ ;ID BIT CLEAR? YES, EXIT THE TEST. 
MOV #2002.,ERRNSR ;NO, SET THE ERROR REPORT NUMBER TO 2002. 
MOV #EM2002 ,R1 ;GET THE PROPER ERROR MESSAGE. 
MOV #EROSO3,ERRBLK ;SELECT THE PROPER ERROR REPORT ROUTINE. 
ERROR ;ERROR NUMBER >>>>> 2002 <<<<< 
TRAP CSERROR 
60$: CLR CTRLCF ; INDICATE THAT WE COMPLETED THE TEST. 
ENDTST 
L10050: 
TRAP CSETST 


SEQ 0164 


Son 
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, HARDWARE TEST 


! 
| 
' 
{ 
| 


032604 
032604 


032604 
032612 
032620 
032626 
032634 
032642 


032650 
032654 
032656 


032662 
032666 
032672 
032676 
032702 
032706 
032712 
032716 


032722 
032726 
032730 
032732 
032734 


032736 
032742 


ee ee. we ee w +e 


000024 
012767 
012767 
012767 
012767 
012767 
012767 


004767 
103054 
005267 


016705 
012700 
004767 
012700 
004767 
012704 
004767 
004767 


016705 
005004 
000241 
006005 
103020 


010477 
012777 


- NOTXDV - 


000024 
177777 
000001 
004065 
013030 
017422 


165302 
151106 


147350 
000200 
170634 
177670 
170700 
000012 
165362 
167654 


147310 


147302 
000012 


147514 
147532 
151140 
151134 
151130 
151124 


147276 





-J13 


-SBTTL HARDWARE TEST 
OME CEL IIIT TTT PSPS PT PP PPP PP PPP Prt tit titi iti itt t ttt tt ttt TTT TT TTT TTT TTT TTT eet 
- No TX_DATA_VALID/No TX_ACTION Test - 

This test verifies that if a data word is written without the 
TX_DATA_VALID bit set, no TX_ACTION will be generated. 

To ensure data is not accidentally transmitted, the test is performed 
in internal loopback, and on all active lines. 


BGNTST 

TNUM == TNUM + 1 

MOV #TNUM, TSTNUM 
MOV #-1,CTRLCF 

MOV #1,ERRTYP 

MOV #2101. ,ERRNBR 
MOV #EM2101,ERRMSG 
MOV #ER9101,ERRBLK 


SE 


- NOTXDV - 


— RRR REE ERE EEE ERE EERE ERE EERE REE EERE ERE ARE KERR EEE EEEEEEEEEEEEE EES 


T20:: 
; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
;SET UP THE TEST NUMBER. (21) 

s INDICATE THAT WE ARE IN A TEST. 

;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


;* 
; Reset the DUT to a known state, remove the status codes from the fifo. 


Clear TX and RX interrupt enable bits in the CSR 


This subroutine reports error 


3* 


JSR 
BCC 
INC 


PC,CLNRST 
60$ 
ERRNBR 


>>>>> 2101 <<ccc, 


;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
sRESET FAILURE?, ABORT THIS TEST. 
;SET THE ERROR NUMBER TO 2102. 


Set internal loopback on all active lines. 

; Set LPR on all lines to 38.4k baud, 8 bits per character, odd parity, 
; 2 stop bits. 
; Disable transmitters on all active lines. 


g¢ 


ACTLNS,RS 
#200, RO 

PC,WTWLNC 
#177670,RO 
PC,WTWLPR 


PC, TXDSBL 


sPASS THE ACTIVE LINE BIT MAP. 

sPASS THE LNCTRL CONTENTS. 

;INITIALISE THE LNCTRL REGISTERS. 

sPASS THE LPR CONTENTS. 

sINITIALSE THE LPR REGISTERS ON ALL LINES. 
sPASS DELAY TIME OF 10 MILLI SECS. 

;WAIT FOR LNCTRL_AND LPR REGS TO BE UPDATED. 
;DISABLE TRANSMITTERS ON ALL ACTIVE LINES. 


; Test all active lines individually. 


Write a date word to the TXCHAR register with TX_DATA_VALID clear. 


2s: 


ACTLNS,RS 
R4 


RS 
4$ 


; Verify no TX_ACTION is generated. 


;GET THE ACTIVE LINE BIT MAP. 

;CLEAR THE LINE NUMBER COUNTER. 

;CLEAR THE CARRY BIT PRIOR TO SHIFTING BIT MAP. 
;SHIFT THE BIT MAP INTO THE CARRY BIT. 

D0 NOT TEST THE LINE IF IT IS INACTIVE. 


; Select the line under test. ’ 
Write data word (ASCII <LF>) to TXCHR register with the most significant 
bit (TX_DATA_VALID) clear. 


MOV 
MOV 


R4,9CSRA 
#12,@9TXCHA 


;SELECT THE LINE CURRENTLY UNDER TEST. 
;WRITE THE DATA WORD TO THE DUT'S TXCHAR REG. 


Q 0165 


i | 


a 


| CVDHACO DHV11-M 


| HARDWARE TEST 


6409 

6410 

6411 
6412 032750 
| 


6413 032754 
6414 032760 
6415 032764 


6 
6417 032766 
esis 032770 


6420 032774 
032774 


6424 032776 
6425 033000 
6426 033002 
6427 033004 


6429 033006 


033012 


eS = 


K13 
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012701 


010401 
012702 


104460 


005204 
005705 
001352 
000400 


005067 


104401 


SEQ 0 
- NOTXDV - _ 
;¢ 
; Wait for a TX_ACTION to be returned, report error if TX_ACTION found 
; before time-out occurs. 
170002 " MOV #170002,R1 sTEST BIT 15, TIMEOUT OF 2 MILLI SECS. 
147264 MOV CSRA,R2 PASS THE ADDRESS OF THE REGISTER 10 TEST. 
170276 JSR PC, WAIBIS iWAIT FOR TX_ACTION TO COME BACK 
BCC 4$ ; SKIP ERROR REPORT IF TX-ACTION NOT FOUND. 
MOV R4,R1 ;PASS THE NUMBER OF CURRENT LINE UNDER TEST. 
013073 MOV #EM2102,R2 ;PASS THE ERROR MESSAGE TO BE REPORTED. 
;"TX_ACT FOUND AFTER INVALID DATA WORD WRITTEN” 
ERROR ; >>>>> ERROR #4102 <<<<<, 
TRAP "C$ERROR 
3* 
; Verify all active lines have been tested. 
4$: INC R4 ; INCREMENT THE LINE NUMBER COUNTER. 
TST RS ; ARE THERE ANY MORE ACTIVE LINES TO TEST?. 
BNE 2s ;YES; BRANCH TO TEST THE NEXT LINE. 
BR 60$ ;NO; EXIT THIS TEST. 
147340 60$: hist CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 
L10051: 


TRAP CSETST 


033014 
033014 


033014 


033052 


033060 
033064 


033060 


033122 


033126 
033132 
033134 
033142 
033144 
033146 


ee ee ee 


000025 


012767 


012767 


004767 
103066 


016705 


103032 


- TXDVAL - 


017422 


165072 


147144 


167450 


147104 
004232 


147304 


150714 


150626 


L13 


-SBTTL HARDWARE TEST 
PO TIIttt ttt titi tt itt titi ttt ttt tt ttt tt tt ttt itt ttt ttt ttt ttt ttt ttt ttt tttttt tt 
- TX_DATA_VALID/TX_ACTION Test - 
if a data word is written to the TXCHAR register 
with the TX_DATA_VALID bit set, @ corresponding TX_ACTION will be 


* 
* 
Xe 
* 
ee 
* 


+ 


Verify that a corresponding TX_ACT 


This test verifies that 
attey 
° 
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| HARDWARE TEST 


- TXDVAL - 


SEQ 0167 


ensure data is not accidentally transmitted, the test is performed 
in internal loopback, and on all active lines. 


— EEK EKER EEE REREREREKEEEERERERERERER EERE EERE ERERESE EEE EERE REED 


BGNTST 


TNUM == TNUM «+ 1 

MOV #TNUM, TSTNUM 
MOV #-1,CTRLCF 

MOV #1,ERRTYP 

MOV #2201. ,ERRNBR 
MOV #EM2201,ERRMSG 
MOV #ER9101, ERRBLK 


Tal: 
s INCREMENT THE ASSEMBLY TIME. TEST COUNTER. 
T UP_THE TEST NUMBER. (22) 


;INDICATE THAT WE ARE IN A TEST. 
;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 


;SET ERROR MESSAGE ADDRESS IN ER 


RTBL. 
;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


¥ Reset the DUT to a known state, remove the og codes from the fifo. 


Clear TX and RX interrupt enable bits in the 
This subroutine reports error >>>>> 2201 <<<<<, 


;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 


JSR PC,CLNRST 
BCC 60$ 


sRESET FAILURE?, ABORT THIS TEST 


Set internal loopback on all active lines. 

Set LPR on all lines to 38.4k baud, & bits per character, odd parity, 
2 stop bits. 
Disable transmitters on all active lines. 


MOV pig F RS 
#200,R 

JSR PC, WTWLNC 

MOV #177670, RO 

JSR PC,WTWLPR 
#1 °°? 4 

JSR PC ,DELAY 

JSR PC, TXDSBL 


sPASS THE ACTIVE LINE BIT MAP. 

;PASS THE LNCTRL CONTENTS. 

;INITIALISE THE LNCTRL REGISTERS. 

sPASS THE LPR CONTENT 

;INITIALSE THE LPR REGISTERS ON ALL LINES. 
sPASS DELAY TIME OF 10 MILLI-SECONDS. 


;WAIT FOR LNCTR AND LPR REGS TO BE UPDATED. 
;DISABLE TRANSMITTERS ON ALL ACTIVE LINES. 


"toot ell active lines individually 
Write a data word to the TXCHAR register with TX_DATA_VALID set. 


MOV ACTLNS RS 
R4 


CLR 
MOV #2202. ,ERRNBR 
CLC 
ROR R5 
BCC 8$ 


; Select the line under test 
Write date word (ASCII <LF>) to TXCHR register with the most significant 


bit (TX_DATA_VALID) set. 


ON is generated. 


;GET THE ACTIVE LINE BIT MAP. 
;CLEAR THE LINE NUMBER COUNTER. 
;SET THE ERROR NUMBER 


TO 2202. 
nen THE CARRY BIT PRIOR TO Rpt BIT MAP. 


;SHIFT THE BIT MAP INTO THE CAR 
;D0 NOT TEST THE LINE IF IT IS INACTIVE. 


ee 


| 


a Oe ee ee ee 


ee a ee ee 


M13 
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6488 
489 
90 


033150 
033154 


033162 
033166 


96 033172 


033176 
033200 


033204 


033224 


0 
033230 


033232 
033232 


6 
033234 


033236 
033240 


0 
033242 


033246 
033246 
033246 


010477 
012777 


012701 
016702 
004767 
103403 
012702 


000411 


005267 
000302 
042702 
020204 
001404 
012702 
010401 
104460 


005204 
005705 
001335 


005067 


104401 


- TXDVAL - 
147070 MOV R4,aCSRA ;SELECT THE LINE CURRENTLY UNDER TEST 
100012 147064 MOV #100012, @TXCHA ;WRITE THE DATA WORD TO THE DUT’S TXCHAR REG. 
; Wait for a TX_ACTION to be returned, report error if no TX _ACTION 
; found before time-out occurs. 
170002 " MOV #170002,R1 243 4 BIT 15, TIMEOUT OF 2 MILLI SECS. 
147052 MOV CSRA,R2 PASS THE ADDRESS OF THE REGISTER TO TEST. 
170064 JSR PC ,WAIBIS SWAT FOR TX_ACTION TO COME BACK. 
BCS 4 ;SKIP ERROR REPORT IF TX-ACTION FOUND. 
013224 MOV #EM2202 ,R2 #PASS THE ERROR MESSAGE TO BE REPORTED. 
;"NO TX_ACT FOUND AFTER VALID DATA WORD Tx'D". 
BR 6$ ;G0 REPORT THE ERROR. 
; Verify TX_ACTION returned from correct line. 
150556 4$: "INC ERRNBR ; INCREMENT ERROR NUMBER TO 2103. 
SWAB R2 ;GET THE LINE NUMBER IN THE LOW BYTE. 
177760 BIC #177760,R2 ;CLEAR THE UNWANTED BITS. 
CMP R2,R4 :IS IT THE CORRECT LINE NUMBER?. 
BEQ 8$ ;YES; SKIP THE ERROR REPORT. 
013316 MOV #EM2203 ,R2 ;PASS THE ERROR MESSAGE TO BE tly 2 
; ;_ “INCORRECT LINE # RETURNED WITH TX Sheng 
6$: MOV R4,R1 ;PASS THE NUMBER OF CURRENT LINE UNDER 
ERROR ; >>>>> ERROR <<<ccc, 
TRAP CSERROR 
; Verify all active lines have been tested. 
8$ INC R4 ; INCREMENT THE LINE NUMBER COUNTER. 
TST RS ;ARE THERE ANY MORE ACTIVE LINES TO TEST?. 
BNE 2s ;YES; BRANCH TO TEST THE NEXT LINE. 
147104 60$: athtes CTRLCF s; INDICATE THAT WE ARE NOT WITHIN A TEST. 
L10052: 


TRAP CSETST 


SEQ 0168 
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2 
6533 033250 
033250 


34 
6535 033250 
6536 033256 
3264 


6546 033314 
6547 033320 


6554 033322 


3 
6562 033362 


6567 033366 
6568 033372 
6569 033374 
6570 033402 
6571 033406 


6577 033410 
6578 033412 
6579 033416 


—— =< 
-— V 


ee ee 


012767 
012767 


004767 
103110 


016705 


012703 
005004 
012767 
030367 
001447 


010305 
004767 
010477 


- TXENBI- 


000026 
177777 
000001 
004375 
013423 
017422 


164636 


146710 
000200 
170174 
177670 
170240 
000012 
164722 
000377 
167304 


000001 


004376 
146630 


167160 
146622 


147050 


150366 





N13 


-SBTTL HARDWARE TEST - TXENBI- 

59+ CRREEEREEEREREREREEE ERASER EAEREEEEEEEESERESEREEERERERER EER EEEEEEREEEEEERE SES 
* - TX_ENABLE (Inactive) Test - 

* This test verifies that when the line under test's TX _ENABLE bit is 

* clear, transmission will not take place on that line. 

* This test is performed in internal loopback, and on all active lines. 

a 


— REESE EEREREREEEEREEEEAERESE SEES E SEER EEEEEEEEEREEEEEEEEEEEEEEEEEEE 


BGNTST Ne 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM,TSTNUM = ;SET UP THE TEST NUMBER. (23) 

MOV = #-1,, CTRLCF INDICATE THAT WE ARE IN A 
MOV #1, ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #2301.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM2301,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
MOV @ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


¥ Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 
; This subroutine reports error >>>>> 2301 <<<<<, 


e JSR PC,CLNRST sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCC 60$ ;RESET FAILURE?, ABORT THIS TEST. 


; Set internal loopback on all active lines. 
; Set LPR on all lines to 38.4k baud, 8 bits per character, odd parity, 


; 2 stop bits. 
; Enable transmitters on all lines. 

MOV ACTLNS,RS sass THE ACTIVE LINE BIT MAP. 
MOV #200, RO ;PASS THE LNCTRL CONTENTS. 
JSR PC, WTWLN NC HINITIALISE THE LNCTRL REGISTERS. 
MOV #177670, “\ PASS THE LPR CONTENTS. 
JSR PC,W VINITIALSE THE LPR REGISTERS ON ALL LINES. 
MOV #10, ot sPASS DELAY TIME OF 10 MILLI-SECONDS. 
JSR PC, DELAY ;WAIT FOR LNCTR AND LPR REGS TO BE UPDATED. 
MOV #MAPLNS ,RS ;PASS THE BIT MAP CORRESPONDING TO ALL LINES. 
JSR PC, TXENBL sENABLE TRANSMITTERS ON ALL LINES. 


; — ell active lines individually 
; i Disable transmission on each soklun line. 


MOV #1,R3 sSET UP_THE LINE BIT MAP FOR oe 0. 
CLR R4 sCLEAR THE LINE NUMBER COUNTE 
2s: MOV #2302. ,ERRNBR SSET THE ERROR NUMBER TO 3302" 
BIT R3,ACTLNS sCHECK IF THE LINE IS ACTIVE 
BEQ 6$ sSKIP TESTING THIS LINE IF ti IS INACTIVE. 


; ; Cleer the TX_ENABLE bit in TBUFFAD2 register. 
; Select the line under test. 
; Verify it is clear, report error if set. 


MOV R3,R5 PASS THE BIT MAP OF THE LINE UNDER TEST. 
JSR PC, TXDSBL ; DISABLE TRANSMISSION ON THE LINE UNDER TEST. 
MOV R4,9CSRA sSELECT THE LINE CURRENTLY UNDER TEST. 


SEQ 0169 


| CVOHACO DHV11-M 

HARDWARE TEST 
6580 033422 
6581 033426 


6596 033462 

033466 

6598 033472 

6599 033476 

00 033502 

033504 

6602 033510 

6603 033514 
6604 


6605 033516 
6606 033520 


6608 033524 
033524 


1 
6612 033526 


——ee ee 








—_—— oo re a ee ee ee 
' 
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SEQ 0170 =O! 
- TXENBI- 
005777 146632 TST —— ;VERIFY THE TX_ENABLE BIT IS SET. 
100433 BHI as ;GO REPORT ERROR IF TX_ENABLE BIT SET. 
; write date word (ASCII <LF>) to TXCHR register. 
; Wait for a TX_ACTION to be returned, report error if a TX_ACTION 
; is found before time-out occurs. | 
012767 004377 150332 MOV #2303. ,ERRNBR ;SET ERROR NUMBER TO 2303. 
012777 100012 146602 MOV #100012,aTXCHA SWRITE THE DATA WORD TO THE DUT’S TXCHAR REG. j 
012701 170002 MOV #170002,R1 atest BIT 15, TIMEOUT OF 2 MILLI SECS. 
016702 146570 MOV CSRA,R2 ;PASS THE ADORESS OF THE REGISTER TO TEST. 
004767 167602 JSR PC, WAIBIS ;WAIT FOR TX_ACTION TO COME BACK. 
103016 BCC 4$ :G0 REPORT ERROR IF NO TX-ACTION FOUND. 
3¢ 
; Wait for the date to appear in the fifo, report error if data found. 
005267 150302 INC ERRNBR ;SET ERROR A TO 2304. 
012701 070012 MOV #70012,R1 ;TEST BIT 7, TIMEOUT OF 10 MILLI SECS. 
016702 146546 MOV CSRA,R2 ;PASS THE ADDRE ESS OF THE REGISTER TO TEST. 
004767 167560 JSR PC,WAIBIS ;WAIT FOR RX_DATA_AVAILABLE TO SET. 
103405 BCS 4$ REPORT ERROR IF DATA RECEIVED IN THE FIFO. 
005267 150260 INC ERRNBR iSET ERROR NUMBER TO 2305. 
017702 146532 MOV ARBUF A ,R2 ;READ THE DATA FROM THE FIFO. 
100004 BPL 6$ ; SKIP ERROR REPORT IF DATA IS THERE. 
010401 . 4: MOV R4,R1 ;PASS THE NUMBER OF CURRENT LINE UNDER TEST. 
012702 013461 Pe MOV #EM2302 ,R2 ;PASS THE MESSAGE TO BE REPORTED. 
;“TX_ENABLE BIT BAD ON LINE: nn“. 
ERROR : >>>>> ERROR <<<cc, 
104460 ; TRAP CSERROR 
; Verify all active lines have been tested. 
000241 6$: CLC ;CLEAR THE CARRY BIT PRIOR TO ROTATION. 
006103 ROL R3 ;SHIFT THE BIT MAP FOR THE NEXT LINE. 
005204 INC R4 sINCREMENT THE LINE NUMBER COUNTER. 
020427 000010 CMP R4, @NUMLNS sHAVE ALL THE LINES BEEN TESTED?. 
002715 BLT 2s ;NO; BRANCH TO TEST THE NEXT LINE. 
005067 146604 60$: osbtat CTRLCF s INDICATE THAT WE ARE NOT WITHIN A TEST. 
L10053: 
104401 TRAP CSETST 


ee ee - 


C14 
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033614 
033620 


033622 


033662 


033666 
033672 
033674 
033702 
033706 


033710 
033712 
033716 


000027 
012767 
012767 
012767 
012767 
012767 
012767 


004767 
103127 


016705 
012700 
004767 
012700 
004767 
012704 
004767 
012705 
004767 


012703 


001463 


010305 
004767 
012705 


- TXENBA- 


017422 


164336 


146410 
000200 
167674 
177670 
167740 
000012 
164422 
000377 
166710 


000001 


004542 
146330 


166754 
000012 


146550 
146566 
150174 
150170 
150164 
150160 


150066 


.SBTTL HARDWARE TEST - TXENBA- 
Wemetitititititititiitiiititititiitititittiiiiittitittititittititti ttt ttt ttt tt tt 
* - TX_ENABLE (Active) Test - 

* This test verifies that when the TX_ENABLE bit is set in the approriate 
* line register, transmission will take place on that line. 

* This test is performed in internal loopback, and on all active lines. 

+ 


-— SEES S KEE ERE EERE EEE ERE SER EEE SEER EERE EES ESESEREE EE EES 


BGNTST 


T23:: 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME “TEST + open 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER (24) 

MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 

MOV #2401.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM2401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 

MOV #ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


3° 
; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR 

; This subroutine reports error >>>>> 2401 <<<<<, 


i JSR PC, CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCC 60$ ;sRESET FAILURE?, ABORT THIS TEST. 


; Set internal loopback on all active lines. 

; Set LPR on all lines to 38.4k baud, 8 bits per character, odd parity, 
; 2 stop bits. 

; Disable transmitters on all lines. 


MOV ACTLNS,RS sPASS THE ACTIVE LINE BIT MAP. 

MOV #200,RO ;PASS THE LNCTRL CONTENTS. 
JSR PC ,WTWLNC sINITIALISE THE LNCTRL REGISTERS. 

MOV #177670,RO ;PASS THE LPR CONTENTS. 

JSR PC,WTWLPR sINITIALSE THE LPR REGISTERS ON ALL LINES. 
sPASS DELAY TIME OF 10 MILLI-SECONDS. 
;WAIT FOR LNCTR AND LPR REGS TO BE UPDATED. 
MOV #MAPLNS ,RS sPASS THE BIT MAP CORRESPONDING TO ALL LINES. 
JSR PC, TXDSBL ;DISABLE TRANSMITTERS ON ALL LINES. 


7 Test all active lines individually. 
; Enable transmission on each active line. 


MOV #1,R3 ;SET UP_THE LINE BIT MAP FOR CHANNEL 0. 
CLR R4 ;CLEAR THE LINE NUMBER COUNTER. 
2$: MOV #2402.,ERRNBR ;SET THE ERROR NUMBER TO 2402. 
BIT R3,ACTLNS ;CHECK IF THE LINE IS ACTIVE. 
BEQ 8$ SKIP TESTING THIS LINE IF IT IS INACTIVE. 


% Select the line under t 
; Set the TX_ENABLE bit Sn * yBUFF AD? register. 
3 Verify it is set, report error if clear. 


“4 MOV R3,R5 ;PASS THE BIT MAP OF THE LINE UNDER TEST. 
JSR PC, TXENBL ;ENABLE TRANSMISSION ON THE LINE UNDER TEST. 
MOV #10. ,R5 ;SET TXCHAR/LOOP COUNT TO 10. 


SEQ 0171 


— te) es < c ooe —A_ LL cE ee — 
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SEQ 0172 
"HARDWARE TEST - TXENBA- 
| 6677 033722 010477 146316 MOV R4,aCSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
6678 033726 005777 146326 TST @TXAD2A ;VERIFY THE TX_ENABLE BIT IS SET. 
| dey 033732 100045 BPL 6$ :GO REPORT ERROR IF TX_ENABLE BIT CLEAR. 
6681 ; Write date word (ASCII <LF>) to TXCHR register. 
6682 ; Wait for a TX_ACTION to be returned, report error if no TX_ACTION 
ooae ; found before time-out occurs. 
6685 033734 012767 004543 150026 43: MOV #2403. ,ERRNBR ;SET ERROR NUMBER TO 2403. 
6686 033742 012777 100012 146276 MOV #100012,@TXCHA ;WRITE THE DATA WORD TO THE DUT’S TXCHAR REG. 
6687 033750 012701 170002 MOV #170002 ,R1 ;TEST BIT 15, TIMEOUT OF 2 MILLI SECS. 
6688 033754 016702 146264 MOV CSRA,R2 ;PASS THE ADDRESS OF THE REGISTER TO TEST. 
6689 033760 004767 167276 JSR PC,WAIBIS ;WAIT FOR TX_ACTION TO COME BACK 
+94 033764 103030 BCC 6$ ;GO REPORT ERROR IF NO TX-ACTION FOUND. 
rot | ; Wait for the data to appear in the fifo, report error if time-out. 
6694 033766 005267 147776 INC ERRNBR ;SET ERROR NUMBER TO 2404. 
6695 033772 012701 070012 MOV #70012,R1 ;TEST BIT 7, TIMEOUT OF 10 MILLI SECS. 
6696 033776 016702 146242 MOV CSRA,R2 sPASS THE ADDRESS OF THE REGISTER TO TEST. 
6697 034002 004767 167254 JSR PC,WAIBIS ;WAIT FOR RX_DATA_AVAILABLE TO SET. 
6698 034006 103017 BCC 6$ ;REPORT ERROR IF NO DATA RECEIVED IN THE FIFO. 
6699 034010 005267 147754 INC ERRNBR ;SET ERROR NUMBER TO 2405. 
6700 034014 017702 146226 MOV ARBUFA,R2 ;READ THE DATA FROM THE FIFO. 
6701 034020 100012 BPL 6$ :GO REPORT ERROR IF THER IS'NT ANY DATA THERE. 
6702 034022 005267 147742 INC ERRNBR ;SET ERROR NUMBER TO 2406. 
6703 034026 000302 SWAB R2 ;PUT THE LINE NUMBER IN THE LOW BYTE. 
6704 034030 042702 177760 BIC #177760,R2 ;CLEAR THE UNWANTED BITS. 
6705 034034 020204 CMP R2,R4 ;D1D THE DATA COME FROM THE CORRECT LINE?. 
6706 034036 001003 BNE 6$ ;NO; GO REPORT THE ERROR 
6707 034040 005305 DEC RS ; DECREMENT THE TXCHAR/LOOP COUNTER. 
6708 034042 001334 BNE 4$ ;LOOP TO TX THE NEXT CHAR. 
4444 034044 000404 BR 8$ ;GO TEST THE NEXT | INE. 
671 
6711 034046 010401 6$: MOV R4,R1 ;PASS THE NUMBER OF CURRENT LINE UNDER TEST. 
6712 034050 012702 013461 MOV #EM2302 ,R2 ;PASS THE MESSAGE TO BE REPORTED. 
6713 : "TX _ENABLE BIT BAD ON LINE: nn”. 
6714 034054 ERROR ; >>>>> ERROR <<<<<, 
ens 034054 104460 TRAP CSERROR 
1 i¢ 
th ; Verify all active lines have been tested. 
671 37 
6718 034056 010305 8$ MOV R3,R5 ;PASS THE BIT MAP OF THE LINE UNDER TEST. 
6719 034060 004767 166512 JSR PC, TXDSBL ;CLEAR THE TX_ENABLE BIT ON THIS LINE. 
6720 034064 900241 CLC ;CLEAR THE CARRY BIT PRIOR TO ROTATION. 
6721 034066 006102 ROL R3 ;SHIFT THE BIT MAP FOR THE NEXT LINE. 
6722 034070 005204 INC R4 ; INCREMENT THE LINE NUMBER COUNTER. 
6723 034072 020427 000010 CMP R4,#NUMLNS s;HAVE ALL THE LINES BEEN TESTED?. 
Ah 034076 002676 BLT 2s ;NO; BRANCH TO TEST THE NEXT LINE. 
6726 034100 005067 146246 60$: CLR CTRLCF s;INDICATE THAT WE ARE NOT WITHIN A TEST. 
6727 034104 ENDTST 
034104 L10054: 
104401 TRAP CSETST 


034104 
| 


= 


i 


E14 
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034256 012746 023664 MOV #CACHTX, -( SP) 


SEQ 0173 
‘yeeesen: TEST - INTA - 
6729 .SBTTL HARDWARE TEST - INTA - 
6730 eeMe tii itittitittttttt iti ttt tittititiittii ttt tit tttttitttiittttttitt ttt ttt ttt tt ts 
6731 ;* - Interrupt Test - 
6732 ;* This test verifies that the Device Under Test (DUT) will generate 
6733 ;* reception and transmission interrupts correctly. This test does 
6734 ;* not depend on the use of the serial line transmission or reception 
6735 ;* capabilities of the DUT. The lines are put in internal loopback 
6736 ;* to minimize any external effects that could be caused on devices 
dt 14 3* attached to the serial lines. 
;* 
th e4 Preeti titittittititititittttt ttt ttt tititittttttitt titi tititiiitiiti ttt tt iti tty) 
6740 
6741 034106 BGNTST 
034106 T24: 
6742 000030 TNUM == TNUM «+ 1 ; INCREMENT THE ASSEMBLY TIME “TEST COUNTER. 
6743 034106 012767 000030 146212 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (26) 
6744 034114 012767 177777 146230 MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
6745 034122 012767 000001 147636 MOV #1,ERRTYP ;SET ERROR FATAL ERROR TYPE IN ERROR TABLE. 
6746 034130 012767 003101 147632 MOV #1601. ,ERRNBR ;SET FIRST ERROR REPORT NUMBER IN ERROR TABLE. 
tad 034136 012767 013553 147626 MOV #E€M2601.,ERRMSG ;SET TEST ERROR MESSAGE IN ERROR TABLE. 
6749 ; Reset the DUT to a known state, do not remove the status codes from the fifo. 
6750 ; Clear TX and RX interrupt enable bits in the CSR. 
oT ; This subroutine reports errors from >>>>> 2601 thru 2602 <<<<<. 
6753 034144 004767 165306 JSR PC,RESETT ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
6754 034150 103402 BCS 2s ;SKIP AROUND ABORTING TEST IF NO ERROR FOUND. 
6755 034152 000167 000746 JMP 60$ ;ABORT TEST IF FATAL ERROR FOUND DURING RESET. 
hi 034156 012767 005053 147604 23: MOV #2603. ,ERRNBR ;SET THE ERROR REPORT NUMBER TO 2603. 
6 3¢ 
tt 4 ; Enable transmitters on all lines. 
6 Ts 
6760 034164 012705 000377 4$: MOV #MAPLNS ,RS ;PASS ACTIVE LINE BIT MAP. 
thy | 034170 004767 166476 JSR PC, TXENBL ;ENABLE TRANSMISSION ON ALL LINES. 
676 3¢ 
6763 ; Test reception interrupts. 
6764 ; Set up for RX and TX interrupts: 
6765 ; RX interrupt service routine inputs a char and counts the interrupt. 
e766 ; TX interrupt service routine counts TX interrupts. 
676 $< 
6768 034174 005067 146134 CLR RXINTC ;CLEAR THE RX INTERRUPT COUNTER. 
6769 034200 005067 146132 CLR RXINTF ;CLEAR THE RX INTERRUPT FLAGS. 
6770 034204 005067 146130 CLR TXINTC ;CLEAR THE TX INTERRUPT COUNTER 
6771 034210 012767 002726 146106 MOV #BUFBAS ,BUFPTR ;LOAD THE BUFFER PTR WITH THE BUFFER BASE ADR. 
6772 034216 SETPRI #PRIOS ;DISABLE DEVICE INTERRUPTS. 
034216 012700 000240 MOV #PRIOS,RO 
034222 104441 TRAP C$SPRI 
6773 034224 SETVEC RXVECA,#RXINPT,#PRIOS ;SET UP INTERRUPT VECTOR TO CATCH RX INT. 
034224 012746 000240 MOV #PRIOS, -( SP) 
034230 012746 024052 MOV #RXINPT, -(SP) 
034234 016746 145772 MOV RXVECA, -( SP) 
034240 012746 000003 MOV #3,-(SP) 
034244 104437 TRAP C$SVEC 
034246 062706 000010 ADD #10,S5P 
| 6774 034252 SETVEC TXVECA,#CACHTX,#PRIOS ;SET UP INTERRUPT VECTOR TO CATCH 7X IN NT. 
034252 012746 000240 MOV #PRIOS,-(SP) 


sai a tele 


eR a ane ee = 


ee mee eee 
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HARDWARE TEST 


034262 
034266 
034272 
034274 
6775 034300 
034300 
034304 


6781 034306 
6782 034312 
6783 034316 
6784 034322 


6789 034326 
6790 034332 


6794 034334 
6795 034340 
6796 034346 
6797 034350 
6798 034354 
6799 034362 
6800 034364 
6801 034370 


6805 034372 
6806 034376 
6807 034400 


6811 034404 
034404 
034406 
034410 
034412 


6815 034414 
6816 034420 


6818 034422 
6819 034426 
034426 
034430 


016746 
012746 
104437 
062706 


012700 
104441 


004767 
012704 
004767 
004767 


005767 
001017 


012701 
032777 
001416 
012701 
032777 
001410 
012701 
000405 


005767 
100006 
012701 


104455 
005053 
013553 
016470 


016702 
001406 


012701 


104455 
005054 


- INTA - 


145746 
000003 


000010 
000000 


165732 
000004 
163756 
165656 


146002 


013762 
000200 


013674 
100000 


013603 


145740 
014056 


145720 


010003 


145676 


145664 


SEQ 0174 
MOV TXVECA, -(SP) 
MOV # 7” P) 
TRAP C$SVEC 
ADD #10,SP 
SETPRI #PRIOO ;ALLOW INTERRUPTS. 
MOV #PRIOO,RO 
TRAP C$SPRI 
iEnable reception interrupts. 
;Del ey 4 ms to allow time for the interrupts to take place. 
iDise le reception interrupts. 
JSR PC,RXIE1L ;ENABLE THE RECEPTION INTERRUPTS. 
MOV #4,R4 ;PASS 4 MS COUNT TO THE DELAY ROUTINE. 
JSR at DELAY ;DELAY 4 MILLI-SECONDS. 
JSR PC,RXIEO ;DISABLE RECEPTION INTERRUPTS. 
3;¢ 
; Verify that the correct interrupts took place. 
; Test the int counter to verify that interrupts took place. 
TST RXINTC ;CHECK THE RX INTERRUPT COUNT. 
BNE 6$ ;SKIP THE FOLLOWING ERRORS IF COUNT <> 0. 
;¢ 
; Determine reason for no RX interrupts and print proper error message. 
MOV #EM2604 ,R1 ;SET UP MSG IN CASE “RX.DATA.AVAIL IS CLR”. 
BIT #BIT7,@CSRA ;TEST THE RX.DATA.AVAIL BIT OF THE CSR. 
BEQ 8$ -  ;GO REPORT ERROR IF RX.DATA.AVAIL IS CLR. 
MOV #EM2603,R1 ;SET UP MSG IN CASE "“DATA.VALID IS CLE/R”. 
BIT #BIT15,@RBUFA ;TEST THE DATA.VALID BIT OF THE FIFO. 
BEQ 8$ :GO REPORT ERROR IF DATA.Vf' "> <7 CLEAR. 
MOV #EM2602,R1 ;SET UP MSG, "DATA.VALID IS 2 on 
BR 8$ ;GO REPORT THE ERROR. 
; If RX ints occurred with RX.DATA.AVAIL clear, report the error. 
64: TST RXINTF ;CHECK THE RX INTERRUPT FLAGS. 
BPL 10$ ;SKIP THE ERROR IF FLAG IS CLEAR. 
MOV #EM2605 ,R1 ;SET UP THE PROPER MESSAGE. 
' Report the error which has been found. 
8$: — ERRDF 2603,EM2601,ER0503; >>>>> ERROR #2603 <<<<<, 
TRAP “ CSERDF 
-WORD 2603 
“WORD €&M2601 
-WORD EROSO3 
3@ 
; Verify that no TX interrupts have been generated so far in this test. 
10$: MOV TXINTC,R2 ;LOAD # OF TX INTERRUPTS FOR EROSO4 RTN. 
BEQ 12$ ;SKIP ERROR IF NO TX INTERRUPTS. 
;REPORT "TX INTERRUPTS(S) RECEIVED WITH TX INTERRUPTS DISABLED. " 
MOV #EM0526,R1 ;SET UP MESSAGE ADR FOR INDIRECT PRINT. 
ERRDF 2604, EM2601, EROSO4; >>>>> ERROR #2604 <<<<<, 
TRAP " CSEROF 
-WORD 2604 


; 
-—< 
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HARDWARE TEST 


| 


6836 


034432 
034434 


034436 
034436 
034442 
034444 
034444 
034450 
034452 
034452 
034456 


034460 
034464 
034470 
034474 
034474 
034500 
034504 
034510 
034514 
034516 
034522 
034522 
034526 
034532 
034536 
034542 
034544 
034550 
034550 
034554 


034556 


034624 


013553 
016514 


012700 
104441 


016700 
104436 


016700 
104436 


005067 
005067 
005067 


012746 
012746 
016746 
012746 
104437 
062706 


012746 
012746 
016746 
012746 
104437 
062706 


012700 
104441 


012705 


001365 
012701 


- INTA - 


000240 


145562 


145556 


145650 
145650 
145646 


000240 
023636 
145522 
000003 


000010 


000240 
024160 
145476 
000003 


000010 
000000 


000022 
000144 
100000 
145446 
100000 
163646 


163636 


014200 


g@ 


i2s: 


;* 
. 
’ 


. WORD 
. WORD 
; Clean out the interrupt vectors used in this test. 
SETPRI #PRIOS ;DISABLE DEVICE INTERRUPTS. _ 
TRAP 
CLRVEC RXVECA ;RETURN RX INT VECTOR TO UNUSED —" 
TRAP 
CLRVEC TXVECA ;RETURN TX INT VECTOR TO UNUSED a" 
TRAP 
Test transmission interrupts. 
Set up for RX and TX interrupts: 
RX interrupt service routine counts RX interrupts. 
TX interrupt service routine counts the interrupt and sets flags. 


14 


SEQ 0175 


EM2601 
EROSO4 


#PRIOS,RO 
C$SPRI 
RXVECA,RO 
C$CVEC 


TXVECA,RO 
C$CVEC 


CLR RXINTC ;CLEAR THE RX INTERRUPT COUNTER. 
CLR TXINTC ;CLEAR THE TX INTERRUPT COUNTER. 
CLR TXINTF :CL LEAR THE RX INTERRUPT FLAGS. 
SETVEC RXVECA,#CACHRX, #PRIO5 ;SET UP INTERRUPT VECTOR TO CATCH RX INT. 
MOV #PRIOS, -(SP) 
MOV #CACHRX , - (SP) 
MOV RXVECA, -( SP) 
MOV #3 hi ( S 
TRAP C$SVEC 
ADD #10,SP 
SETVEC TXVECA,#TXINTR,#PRIOS ;SET UP INT VECTOR TO TX INT ROUTINE. 
MOV #PRIOS,-(SP) 
MOV #TXINTR, -(SP) 
MOV TXVECA, -(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
SETPRI #PRIOO ;ALLOW INTERRUPTS. 
MOV #PRIOO,RO 
TRAP C$SPRI 


Hed 
; Verify that the TX_ACTION bit is clear. 


MOV #18. ,R5 sINITIALIZE THE LOOP COUNTER. 
MOV #100. ,R1 SET 100 MS TIME-OUT. 
MOV #BIT15,R2 sSELECT TX_ACTION BIT TO TEST. 
MOV CSRA,R4 ;PASS DUT CSR AS THE WORD TO TEST. 
$: MOV #BIT15,R3 s;WAIT FOR TX_ACTION TO BE SET. 
JSR PC,MSLOOP ;WAIT UP TO 100 MS FOR TX_ACTION SET. 
BCC 20$ ;IF TIME-OUT, CONSIDER TX_ACTION CLEAR. 
CLR R3 ;NOW, WAIT FOR TX ACTION CLEAR. 
JSR PC,MSLOOP ;WAIT UP TO 100 MS FOR TX -ACTION CLEAR. 
BCC 16$ ;IF TIME-OUT, REPORT TX_ACTION WON'T CLEAR. 
DEC sia ;DECREMENT THE TX ACTION SET COUNTER. 


BNE LOOP IF NOT TOO MANY TX_ACTIONS FOUND. 
s;REPORT "TX ACTION SET REPEATEDLY AFTER RESET, NO DATA SENT.” 
MOV ~~ #€M2607,R1 ;SELECT ERROR MESSAGE. 


Ne | 


— ee ee ee 


a a | a ee a ee Ce 
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| 
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| HARDWARE TEST 


034630 
034632 
034636 
034636 
034640 
034642 
034644 
034646 


034650 
034654 
034660 
034664 
034670 
034672 
034676 
034702 
034704 


034710 
034710 
034712 
034714 
034716 


034720 
034724 


034730 
034734 
034740 
034744 
034750 


034754 
034760 
034764 


034770 
034774 


035000 
035004 


000402 
012701 


104455 
005055 
014141 
016470 
000424 


004767 
012704 
004767 
005767 
001413 
012701 
005767 
100002 
012701 


104455 
005056 
014141 
016470 


005067 
005067 


012705 
012700 
004767 
012700 
004767 


016701 
012702 
004767 


012704 
004767 


005767 
001007 


- INTA - 


014274 


166152 
000062 
163414 
145450 


014200 
145440 


014345 


145414 
145412 


000377 
000200 
166566 
156430 
166632 


145266 
100000 
166572 


000372 
163300 


145334 


BR 18$ ;GO TO REPORT THE ERROR. 
16$: MOV #EM2608 ,R1 ;SELECT TX_ACTION STUCK SET MSG. 
18$: ERRDF 2605 ,EM2606,ERO503; >>>>> ERROR #2605 <<<<<. 
TRAP CSERDOF 
-WORD 2605 
-WORD EM2606 
ORD EROSO3 


.W 
BR 24$ ;GO TO TEST WITH TX_ACTION SET. 
3+ 
; Verify that no interrupts occur with TX_ACTION clear. 


208:. JSR PC, TXIE1 s;ENABLE TX_INTERRUPTS. 
MOV #50. ,R4 PASS SO MS TIME TO THE DELAY ROUTINE. 


TST TXINTC ;TEST THE TX INTERRUPT COUNT. 
BEQ 24$ ;SKIP THE ERROR IF NO TX INTERRUPTS. 

MOV #EM2607,R1 ;SELECT MESSAGE IN CASE TX INT FLAG CLEAR. 
TST TXINTF ;TEST THE TX INTERRUPT FLAGS. 
BPL 22$ ;GO REPORT ERROR IF TX FLAG IS CLEAR. 


MOV #EM2609,R1 3TX FLAG s ved SELECT PROPER ERROR MESSAGE. 
;REPORT “TRANSMIT INTERRUPT TEST ERROR: 
22s: ERRDF 2606 ,EM2606,ERO503; >>>>> ERROR cases, haha 
-WORD 2606 


-WORD EM2606 
-WORD EROSO3 


3° 
; Prepare TX interrupt counter and flags. 


243: CLR TXINTC ;CLEAR THE TX INTERRUPT COUNT. 
CLR TXINTF ;CLEAR THE TX INTERRUPT FLAGS. 
3+ 
; Set up line parameters for transmission. 
MOV #MAPLNS ,RS ;PASS ACTIVE LINES BIT MAP. 
MOV #200 ,RO ;PASS INERT STATE, INTERNAL LOOPBACK. 
JSR PC ,WTWLNC ;DISABLE RECPTION AND DMA, ETC. ON DUT. 


MOV #156430 ,RO ;SPECIFY 9600BPS,1STOP,NO PARITY,8BITS/CHAR. 
JSR PC,WTWLPR ;WRITE TO ALL LPR REGISTERS. 


3+ 

; Send a null char to each line. 
MOV TXCHA,R1 ;SET UP TXCHAR REGISTER ADDRESS. 
MOV #100000 ,R2 ;SET CHARACTER TO BE TRANSMITTED = NULL. 
JSR PC ,WTWLNS ;SEND NULL CHAR TO EACH LINE. 

3? 

; Delay 250 milli-seconds to allow interrupts to occur. 


"MOVs #250. ,R4 ;SET UP FOR 250 MS DELAY. 


JSR PC ,DELAY ;WAIT 250 MS 
3*¢ 
; Verify that TX interrupts occurred. 
TST TXINTC ;CHECK THE TX INTERRUPT COUNTER. 
BNE 26$ ;SKIP THE FOLLOWING ERROR IF WE GOT TX INTS. 


;* 
; Determine the reason that we received no interrupts. 


;DELAY 50 MILLI-SECONDS TO ALLOW INTS TO OCCUR. 


SEQ 0176 


ee ee ee 


114 
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6904 
6905 


035006 


906 035012 


035016 
035020 


035024 
035030 


035032 
5 


035036 
03 


035046 
035052 
035054 


035060 
035060 
035062 
035064 
035066 


035070 


6 
035124 


035130 
035130 
035130 


012701 
005777 
100407 
012701 


005767 
100006 
012701 


104455 
005057 
014141 
016470 


016702 
001406 
012701 


104455 
005060 
014141 
016514 


005001 
004767 
004767 


012700 
104441 


016700 
104436 


016700 


104436 


005067 


104401 


- INTA - 
014424 
145226 
014516 


145312 
014345 


145262 
007713 


165670 
165102 
000240 
145116 
145112 


145222 


a ee ee 


MOV #EM2610,R1 ;SET UP_ MSG IN CASE "“TX_ACTION IS SET”. 
TST aCSRA ;CHECK THE DUT CSR 

BMI 28$ ;GO TO REPORT ERROR IF TX_ACTION IS SET. 
MOV #EM2611,R1 ;SET UP “TX_ACTION NOT SET” MESSAGE. 


;+ 
; Check to verify that TX_ACTION was set for each interrupt. 


26$: TST TXINTF ;CHECK THE TX INTERRUPT FLAGS. 
BPL 30$ ;SKIP ERROR IF TX_ACTION CLR FLAG IS CLEAR. 
MOV #EM2609 ,R1 ;SET UP TX INT WITH “TX_ACTION CLR” MSG. 


¥ Report "TRANSMIT INTERRUPT TEST ERROR:.... " 


200; ERRDF 2607,EM2606,ER0503; : 
TRAP CSERDF 


“WORD M2606 
-WORD EROSO3 


3+ 
; Verify that no TX interrupts have been generated so far in this test. 


30$: MOV RXINTC,R2 ;LOAD # OF RX INTERRUPTS FOR EROSO4 RIN. 
BEQ = ;SKIP ERROR IF NO RX INTERRUPTS. 
#EMO0S525,R1 ;SET UP MESSAGE ADR FOR INDIRECT PRINT. 


MOV 
;REPORT "RX INTERRUPTS(S) RECEIVED WITH RX INTERRUPTS DISABLED. “ 
ERRDF 2608,EM2606,ER0504; >>>>> ERROR aoe 


CSERDF 
ORD 2608 
WORD EM2606 
WORD EROSO4 
Hed 
; Disable interrupts and clean out the interrupt vectors used in this test. 
32$: CLR Ri ;CLEAR BOTH TRANSMITTER 
JSR PC, TXIEO ; INTERRUPT ENABLE AND RECEIVER 
JSR PC, ,RXIEO ; INTERRUPT ENABLE BITS IN THE DUT CSR. 
SETPRI #PRIOS ; DISABLE DEVICE INTERRUPTS. 
MOV #PRIOS,RO 
TRAP C$SPRI 
CLRVEC RXVECA ;RETURN RX INT VECTOR TO UNUSED POOL. 
MOV RXVECA,RO 
TRAP C$CVEC 
CLRVEC TXVECA ;RETURN TX INT VECTOR TO UNUSED POOL. 
MOV TXVECA,RO 
TRAP CSCVEC 
60$: CLR CTRLCF ;INDICATE THAT WE ARE NOT WITHIN A TEST. 


ENDTST 
L10055: 
TRAP CSETST 


SEQ 0177 


J14 
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! SEQ 0178 
oupaes TEST - BRLEVA - 
6942 .SBTTL HARDWARE TEST - BRLEVA - 
6943 Foo EERE EERE EERE EERE EERE EEE EE EEE EERE EEE EEREEEEEEEEEERE REE EREE SEER EERE EEES 
6944 :* - BR Level Test B - 
6945 ;* This test verifies that the Device Under Test (DUT) will generate 
6946 ;* reception and transmission interrupts at the correct BR level. 
6947 ;* This test does not depend on the use of the serial line transmission 
6948 7* or reception capabilities of the DUT. The lines are put in internal 
6949 ;* loopback to minimize any external effects that could be caused on 
4494 7* devices attached to the serial lines. 
;* 
He | PEP II it ITT TTT Tri rit iti tt titi ttt itt ttt ttt tT TTT TT TTT TT TTT TTT TTTTTTTTTTTTTTT Tt 
695 
6954 035132 BGNTST 
035132 T25:: 
6955 000031 TNUM == TNUM «+ 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
6956 035132 012767 000031 145166 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (30) 
6957 035140 012767 177777 145204 MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
6958 035146 012767 000001 146612 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
6959 035154 012767 005671 146606 MOV #3001. ,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
6960 035162 012767 014601 146602 MOV #EM3001,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
$443 035170 005067 145266 CLR ERSMRF sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
3*¢ 
6963 ; Reset the DUT to a known state, do not remove the status codes from the fifo. 
6964 ; Clear TX and RX interrupt enable bits in the CSR. 
$354 ; This subroutine reports errors from >>>>> 3001 thru 3002 <«<<<<., 
6967 035174 004767 164256 JSR PC,RESETT ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
6968 035200 103402 BCS 2$ ;SKIP AROUND ABORTING TEST IF NO ERROR FOUND. 
6969 035202 000167 000572 JMP 60$ ;ABORT TEST IF FATAL ERROR FOUND DURING RESET. 
coee 035206 012767 005673 146554 23: MOV #3003. ,ERRNSR ;SET THE ERROR REPORT NUMBER TO 3003. 
aoe ; Enable transmitters on all lines. 
69 3° 
6974 035214 012705 000377 4$: MOV #MAPLNS ,RS ;PASS ACTIVE LINE BIT MAP. 
th 035220 004767 165446 JSR PC, TXENBL ;ENABLE TRANSMISSION ON ALL LINES. 
6976 i+ 
6977 ; Generate a transmission interrupt request. 
oo7e ; Processor priority should be at 7 disabling ints. 
6 "ie 
6980 035224 SETPRI #PRIO7 ;DISABLE ALL INTERRUPTS. 
035224 012700 000340 MOV #PRIO7,RO 
035230 104441 TRAP C$SPRI 
6981 035232 SETVEC TXVECA,#TXINTR,#PRIO7 ;SET UP INTERRUPT VECTOR TO CATCH TX INT. 
035232 012746 000340 MOV #PRIO7,-(SP) 
035236 012746 024160 MOV #TXINTR, -( SP) 
035242 016746 144766 MOV TXVECA, -(SP) 
035246 012746 000003 MOV #3,-(SP) 
035252 104437 TRAP CS$SVEC 
seen 035254 062706 000010 ADD #10,SP 
6983 ; Set up DUT for transmission interrupts: 
6984 ; Set up internal loopback. 
zeae ; Set up line parameters for transmission. 
6987 035260 012705 000377 MOV #MAPLNS ,R5 ;PASS ACTIVE LINES BIT MASK. 
6988 035264 012700 000200 MOV #200,RO ;PASS INERT STATE, INTERNAL LOOPBACK. 


|; 6989 035270 004767 166236 JSR PC, WTWLNC s;DISABLE RECPTION AND DMA, ETC. ON DUT. 


ELL TT Le +e ee ea 


-—- a 


7038 035440 005703 "TST R3 ;CHECK THE RX PRIORITY STORE AND FLAGS. 


, CVDHACO DHV11-M FUNC TST PART 1 MACRO YOS.02 Monday 01-Apr-85 07:47 Page 126-1 | 
SEQ 0179 
| HARDWARE TEST - BRLEVA - | 
6990 035274 012700 156430 MOV #156430 ,RO ;SPECIFY 9600BPS,1STOP,NO PARITY,8BITS/CHAR. | 
oad 035300 004767 166302 JSR PC,WTWLPR ;WRITE INTO ALL LPR REGISTERS. | 
o398 ; Send a null char to each Line. } 
6995 035304 016701 144736 "MOV TXCHA,R1 ;SET UP TXCHAR REGISTER ADDRESS. ! 
6996 035310 012702 100000 MOV #100000 ,R2 ;SET CHARACTER TO BE TRANSMITTED = NULL. | 
44d) 035314 004767 166242 JSR PC,WTWLNS ;SEND NULL CHAR TO EACH LINE. 
3¢ | 
84-84 ; Delay 50 ms to allow time for the interrupt to be generated. | 
7001 035320 012704 000062 ‘ MOV #50. ,R4 ;PASS 50 MS TIME TO THE DELAY ROUTINE. 
a 035324 004767 162750 JSR PC, DELAY ;DELAY 50 MILLI-SECONDS. 
Lhe os ; Generate a reception interrupt request. 
7006 035330 ‘ SETVEC RXVECA,#RXBRRT,#PRIO7 ;SET UP INTERRUPT VECTOR TO CATCH sl INT. 
035330 012746 000340 MOV RI07,-(SP) 
035334 012746 023762 MOV SRNBRRT, -(SP) 
035340 016746 144666 MOV RXVECA, -(SP) 
035344 012746 000003 MOV #3,-(SP) 
035350 104437 TRAP C$SVEC 
vee? 035352 062706 000010 ADD #10,SP 
Ls e's ; Set up for the loop which tests the interrupt BR levels. 
7010 035356 012705 000340 ; MOV #340,R5 ;SET UP THE PRIORITY LEVEL TO 7. 
7011 035362 005003 CLR R3 ;CLEAR THE RX PRIORITY STORE AND FLAGS. 
i 035364 005002 CLR R2 ;CLEAR THE TX PRIORITY STORE AND FLAGS. 
7014 ; Enable TX and RX interrupts. 
rs ; Processor priority should be at 7 disabling the interrupts. 
7017 035366 004767 164652 "JSR PC,RXIE1 ;ENABLE RECEIVER INTERRUPTS. 
Lk 035372 004767 165430 JSR PC, TXIE1 ;ENABLE TRANSMITTER INTERRUPTS. 
er ; Loop, lowering the processor priority until the DUT interrupts on RX and TX. 
1 . 
7022 035376 005067 144736 6$: CLR TXINTCS ;CLEAR THE TX INTERRUPT ere. 
7023 035402 005067 144734 CLR TXINTF ;CLEAR THE TX INTERRUPT FLAGS. 
7024 035406 005067 144722 CLR RXINTC ;CLEAR THE RX INTERRUPT gt 
7025 035412 005067 144720 CLR RXINTF ;CLEAR THE RX INTERRUPT FLAGS. 
7026 035416 SETPRI RS ;SET PROCESSOR PRIORITY TO THE SELECTED VALUE. 
035416 010500 MOV R5,RO 
035420 104441 TRAP C$SPRI 
7027 035422 012704 000001 MOV #1,R ;PASS 1 MS COUNT TO THE DELAY ROUTINE. 
Le = 035426 004767 162646 JSR PC, DELAY ;DELAY 1 MS TO ALLOW INTERRUPTS TO OCCUR. 
7030 | Sotarsine if any RX DUT interrupts occurred. 
Le 3 ; | Lan the processor priority for the RX interrupt if first RX int. 
7033 035432 005767 144676 } TST RXINTC ;CHECK THE RECEIVE INTERRUPT COUNTER. | 
ooee 035436 001412 BEQ 8$ ; SKIP THE PRIORITY LOG IF NO RX INT OCCURRED. | 
Lae ; If this is the first RX interrupt, log the priority. H 
| 
| | 
i] 
| 


—_—~ 


ee ee ee 
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7039 
Lon 


035442 
035444 


1 035446 


035452 
035456 
035462 


035464 
035470 


035472 


035500 


035504 
035510 
035512 
035514 


035516 


035536 


035540 
035542 


035544 
035550 
035554 
035556 


035562 
035562 


001010 


005767 
001405 


005702 
100403 
010502 
052702 


162705 
002402 
030203 
100330 


012700 
104441 


016700 
104436 


016700 
104436 


005702 
100414 


012701 
005777 
100402 
012701 


104455 


- BRLEVA - 


100000 
144660 
137777 


144650 


100000 


000040 


000340 


144502 


144476 


014424 
144470 


014516 





BNE 8$ ;GOTO TEST FOR TX INTS IF NOT THE FIRST RX INT. 
MOV RS,R3 LOG THE PRESENT PRIORITY IN THE RX PRIO STORE. 
BIS #BIT1S,R3 SSET THE RX INT HAS OCCURRED FLAG. 

MOV RXINTF ,RO ;GET THE RX INTERRUPT ROUTINE ene 
BIC #137777 ,,RO ;CLEAR ALL BUT THE TX INT ERROR FLAG. 
BIS RO,R3 ;IF TX INT ERROR, SET BIT 14 OF THE PRIO FLAGS. 


; Geteraine if any TX DUT interrupts have occurred. 
; Log the present processor priority if this is the first TX interrupt. 


8$: ot TST TXINTC ;CHECK THE TRANSMIT INTERRUPT COUNTER 
BEQ 10$ ;SKIP THE PRIORITY LOG IF NO TX INT OCCURRED. 
; If this is the first TX interrupt, log the priority. 
TST R2 ;CHECK THE TX PRIORITY STORE AND FLAGS. 
BMI 10$ ;SKIP THE LOGGING IF NOT FIRST TX INTERRUPT. 
MOV RS,R2 ;LOG THE PRESENT PRIORITY IN THE TX PRIO STORE. 
BIS #B1T15,R2 ;SET THE TX INT HAS OCCURRED FLAG. 


3+ 
; Select next processor priority. 
; Test for both RX and TX interrupts having occurred, loop if not. 


10$: SUB #40 ,RS ;DECREMENT PRIORITY LEVEL BY ONE. 
BLT 12s ;GOTO CHECK FOR ERRORS IF BELOW PRIORITY ZERO. 
BIT R2,R3 ;AND PRIO FLAGS TOGETHER, ALTER NONE OF THEM. 
BPL 6$ ;LOOP IF RX AND TX INTS HAVEN'T BOTH OCCURRED. 


;¢ 
; Disable interrupts and clear interrupt vectors. 


i2s: SETPRI #PRIO7 ;DISABLE ALL INTERRUPTS. 
MOV #PRIO7,RO 


TRAP C$SPRI 
CLRVEC RXVECA ;RETURN RX INT VECTOR TO UNUSED POOL. 
MOV RXVECA,RO 
TRAP CS$CVEC 
CLRVEC TXVECA ;RETURN TX INT VECTOR TO UNUSED POOL. 
MOV TXVECA,RO 
TRAP CS$CVEC 
¥ Verify that RX and TX interrupts occurred, 
; at the proper BR level, and 
; in the proper order. 
; Determine if TX interrupt occurred. 
: TST R2 ;DETERMINE WHETHER TX INT OCCURRED OR NOT. 
BMI 16$ ;SKIP THESE ERRORS IF TX INT OCCURRED. 
; Determine reason that no TX int occurred. 
MOV #EM2610,R1 ;SELECT "NO TX INT FROM TX.ACTION” MESSAGE. 
TST aCSRA ;CHECK THE TX.ACTION BIT OF THE DUT CSR. 
BMI 14$ ;SKIP TX.ACTION CLR MSG SELECTION IF IT “IS SET. 


MOV #EM2611,R1 ;SELECT "TX. ACTION CLEAR AFTER CHARS SENT” MSG. 
;REPORT “INTERRUPT BR LEVEL TEST ERROR: 
14$: ERRDF 3003,EM3001,ERO0S03; >>>>> ERROR #3003 — * CoERDF 


SEQ 0180 


SS Se ee ee eee 


M14 
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SEQ 0181 
HARDWARE TEST - BRLEVA - 
035564 005673 -WORD 3003 
035566 014601 -WORD €&M3001 
035570 016470 WORD ROSO3 
4 6 44 035572 000423 BR 18$ ;SKIP THE BR LEVEL CHECK, NO TX INT OCCURRED. 
;¢ 

Lead ; Verify that the TX interrupt was at the proper BR level. 

7093 035574 010204 16$: MOV R2,R4 ;CALCULATE THE BR LEVEL 

7094 035576 042704 177400 BIC #177400 ,R4 ; THAT THE TRANMSIT 

7095 035602 006204 ASR R4 ; INTERRUPT WAS 

7096 035604 006204 ASR R4 ; REQUESTED AT, WHICH 

7097 035606 006204 ASR R4 ; IS ONE GREATER THAN 

7098 035610 006204 ASR R4 ; THE PROCESSOR PRIORITY 

7099 035612 006204 ASR R4 ; LEVEL AT WHICH THE 

7100 035614 005204 INC P4 TRANSMIT INTERRUPT OCCURRED. 

7101 035616 116705 144420 MOVB 5 oan ;GET THE EXPECTED INTERRUPT BR LEVEL. 

7102 035622 120405 CMPB = R4, RS ; COMARE THE INTERRUPT BR LEVEL WITH EXPECTED. 

7103 035624 001406 BEQ 18$ ;SKIP THE ERROR IF LEVEL IS CORRECT. 

7104 ;REPORT "TX INTERRUPT GENERATED AT WRONG BR LEVE 

7105 035626 012701 014726 MOV #EM3003,R1 ;SELECT THE ERROR MESSAGE “FOR THE ERROR CALL. 

7106 035632 ERROF 3004, —M3001, ER3001; >>>>> ERROR #3004 <<<<<, 

035632 104455 TRAP " CSEROF 

035634 005674 -WORD 3004 

035636 014601 -WORD €&M3001 
ner 035640 017070 -WORD €ER3001 
hp ; Determine if RX interrupt occurred. 

7110 035642 005703 18$: TST R3 ;CHECK THE R¥ INT OCCURRED FLAG. 

with 035644 100415 BMI 22$ ;SKIP THESE ERRORS IF RX INT OCCURRED. 

vite ; Determine reason that no RX int occurred. 

11 '- 

7115 035646 012703 013603 MOV #EM2602,R1 ;SELECT “NO RX INT FROM TX.ACTION” MSG. 

7116 035652 032777 000200 144364 BIT #BIT7,@CSRA ;CHECK THE RX.DATA.AVAIL BIT OF THE DUT CSR. 

7117 035660 001002 BNE 20$ ;SKIP RX.DATA.AVAIL CLR MSG IF BIT IS SET. 

7118 035662 012701 014632 MOV #EM3002,R ;SE LECT "NO RX.DATA.AVAIL AFTER RESET” MSG. 

7119 ;REPORT “INTERRUPT bre LEVEL TEST ERROR:” 

7120 035666 208: ERRDF 3005,EM3001,ER0503; >>>>> ERROR #3005 <<<<<, 
035666 104455 TRAP CSEROF 
035670 005675 -WORD 3005 
035672 014601 -WORD &M3001 
035674 016470 WORD EROSO3 

714 035676 000423 BR 24$ ;SKIP THE BR CHECK IF NO RX INT OCCURRED. 

aS ; Verify that the RX interrupt was at the proper BR level. 

7125 035700 010304 22$: MOV R3,R4 ;CALCULATE THE BR LEVEL 

7126 035702 042704 177400 BIC #177400,R4 ; THAT THE RECEIVE 

7127 035706 006204 ASR R4 ; INTERRUPT WAS 

7128 035710 006204 ASR R4 ; REQUESTED AT, WHICH 

7129 035712 006204 ASR R4 ; IS ONE GREATER THAN 

7130 035714 006204 ASR R4 ; THE te eres + - ail 

7131 035716 006204 ASR R4 ; LEVEL AT WHICH 

7132 035720 005204 INC R4 3 RECEIVE. INTERRUPT™ OCCURRED. 

7133 035722 116705 144314 MOVB BRLEVL,RS ;GET THE EXPECTED INTERRUPT BRL 


LEVEL 
7134 035726 120405 CMPB- sR4,RS ;COMARE THE INTERRUPT BR LEVEL WITH EXPECTED. 





— 








N14 
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7135 
71 


HARDWARE TEST 


035730 


035746 
035752 


035766 


035770 


e 035774 


036012 
6 


001406 
012701 


017070 
032703 
001406 


012701 
104455 
005677 


- BRLEVA - 
BEQ 24$ ;SKIP THE ERROR IF BR LEVEL IS CORRECT. 
;REPORT "RX INTERRUPT GENERATED AT WRONG BR LEVEL: 
015002 MOV #EM3004 ,R1 ;SELECT ERROR MESSAGE FOR THE ERROR CALL. 
ERRDF 3006, £M3001 ,ER3001; >>>>> ERROR #3006 <<<<<, 
TRAP " CSEROF 
-WORD 3006 
«WORD €&M3001 
-WORD €ER3001 
; Test for interrupts occuring in the proper order. 
g= 
040000 243: BIT #BIT14,R3 ;CHECK THE IMPROPER INT ORDER ERROR FLAG. 
BEQ 6 ;SKIP ERROR REPORT IF ERROR DID NOT OCCUR. 
sREPORT “TX INTERRUPT GIVEN PRECEDENCE OVER SIMULTANEOUS RX INT.” 
015056 MOV #EM3005,R1 ;SELECT THE ERROR MESSAGE FOR INDIRECT PRINT. 
ERROF 3007 ,EM3001,EROSO3; >>>>> ERROR #3007 <<<<<, 
TRAP “ CSEROF 
-WORD 3007 
-WORD €M3001 
-WORD EROSO3 
3;¢ 
; Clean up, exit the test. 
164772 26$: JSR PC, TXIEO ;CLEAR TRANSMITTER INTERRUPTS. 
164204 JSR PC ,RXIEO ;CLEAR a th INTERRUPTS. 
144346 60$: CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 
SETPRI #PRIOS ;DISABLE ALL BUT LTC INTERRUPTS. 
000240 MOV @PRIOS,RO 
TRAP C$SPRI 
ENDTST 
L10056: 


TRAP CSETST 


SEQ 0182 
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SEQ 0183 
| HARDWARE TEST - DIABMP - 
7158 .SBTTL HARDWARE TEST - DIABMP - 
7159 OME TIT Ii tii iitiitii iii iitititit titi tit ttt iit titi t iti Ti TTTTTTTiTiTiTiTTT TTT 
7160 i* - Diagnostic field (BMP) Test - 
7161 ;* This test verifies that e request to the DUT to report BMP status 
7162 i* codes is complied with, within the specified time. 
7163 ;* All active lines are tested. 
Mees Fr — SSSSSSSSSSSSSSHS ESSE SESE SESE ESSE EEE EEESEHEESESEEESEEEEERESEEEESERESEEE 
7166 036014 BGNTST 
036014 T26:: 
7167 000032 TNUM == TNUM « 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
7168 036014 012767 000032 144304 MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. (31) 
7169 036022 012767 177777 144322 MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
7170 036030 012767 000001 145730 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
7171 036036 012767 006035 145724 MOV #3101. ,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
7172 036044 012767 015150 145720 MOV #EM3101,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
BY 036052 012767 017422 145714 MOV @ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
id 
7175 ; Reset the DUT to a known state, remove the status codes from the fifo. 
7176 ; Clear TX and RX interrupt enable bits in the CSR. 
eB ; This subroutine reports error >>>>> 3101 <<<<<, 
7179 036060 004767 162072 : JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
130 036064 103077 BCC 60$ ;RESET FAILURE?, ABORT THIS TEST. 
7182 : Test all active lines individually. 
7183 ; Write the request code to the diagnostic field in the LPR register. 
be pn ; Verify that a BMP code is returned within the correct time. 
7186 036066 016705 144144 ° MOV _— ACTLNS, RS ;GET THE ACTIVE LINE BIT MAP. 
7187 036072 005004 CLR R4 ;CLEAR THE LINE NUMBER COUNTER. 
7188 036074 016703 144144 MOV CSRA,R3 ;GET THE ADDRESS OF THE DUT’S CSR. 
7189 036100 000241 2s: ahs ;CLEAR THE CARRY BIT PRIOR TO Sarl BIT MAP. 
7190 036102 006005 ROR R5 ;SHIFT THE BIT MAP INTO THE CARRY BIT 
Lb 036104 103064 BCC 8$ ;00 NOT TEST THE LINE IF IT IS INACTIVE. 
7193 ; Select the line under test. 
it ho ; Write the BMP request code to the DIAG field in the LPR register. 
7196 036106 012767 006036 145654 . MOV #3102. ,ERRNBR ;SET THE ERROR NUMBER TO 3102. 
7197 036114 010413 MOV R4,(R 3) ;SELECT THE LINE CURRENTLY UNDER TEST. 
Le 036116 052777 000002 144124 BIS #2, "@LPRA ;WRITE THE BMP REQUEST CODE TO THE LPR. 
1 3° 
7200 ; Wait for BMP request code to be cleared, report error if time-out 
70s ; occurs. 
7203 036124 012701 010764 , MOV #10764,R1 ;TEST BIT 1, TIMEOUT OF SOO MILLI SECS. 
7204 036130 016702 144114 MOV LPRA, R2 ;PASS THE ADDRESS OF THE REGISTER TO TEST. 
7205 036134 004767 165046 JSR At WAIBIC ;WAIT FOR REQUEST CODE TO CLEAR. 
Lo 036140 103042 BCC ;G0 REPORT ERROR IF CODE DID NOT CLEAR IN TIME. 
7208 ; Wait for BMP code to appear in the fifo, report error if time-out 
| LL 44 ; occurs. 
| 7211 036142 005267 145622 , INC ERRNBR ;SET ERROR NUMBER TO 3103. 
7212 036146 012701 070012 MOV #70012,R1 ;TEST BIT 7, TIMEOUT OF 10 MILLI SECS. 


7213 036152 016702 144066 MOV CSRA,R2 sPASS THE ADDRESS OF THE REGISTER TO TEST. 





Se ee 
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036156 


036162 
6 


036246 
036250 


036254 
036254 


036256 
036260 
036262 
036264 
036270 
036270 
036270 


004767 
103031 


010401 
012702 


104460 


005067 


104401 


SEQ 0184 
- DIABMP - 
165100 JSR PC,WAIBIS ;WAIT FOR RX_DATA_AVAILABLE TO SET. 
BCC 6$ ;G0 REPORT ERROR IF CODE DID NOT CLEAR IN TIME. 
; Read the BMP code (if it is there) from the RBUF register. 
; Determine if it is a valid BMP code, 
; Verify the BMP code was received from the correct channel. 
; If the BMP code does not indicate DUT running ok, then save it on 
; the queve to be reported in a later test. 
145600 INC ERRNBR ;SET ERROR NUMBER TO 3104 
144052 MOV A@RBUFA,R2 ;GET THE BMP CODE FROM THE FIFO. 
BPL 6$ ;GO REPORT ERROR IF NO BMP CODE FOUND 
145566 INC ERRNBR ;SET ERROR NUMBER TO 3105. 
170301 MOV #170301,R0 ;SET-UP A BMP CODE MASK. 
BIC R2,RO ;TRY TO CLEAR THE BMP MASK. 
BNE 6$ :GO REPORT ERROR IF IT IS NOT A VALID BMP CODE. 
145552 INC ERRNBR ;SET THE ERROR NUMBER TO 3106. 
MOV R2,RO ;COPY THE BMP CODE. 
SWAB RO ;PUT THE LINE NUMBER IN THE LOW BYTE. 
177760 BIC #177760,R0 ;CLEAR THE UNWANTED BITS. 
CMPB =R4,RO ;DID THE BMP CODE COME FROM THE CORRECT LINE?. 
BNE 6$ ;NO; GO REPORT ERROR. 
000305 CMPB = R2,, #305 ;IS THE BMP CODE A "GOOD ONE”?. 
BEQ 8$ YES; SKIP SAVING THE BMP CODE ON THE QUEUE. 
164024 JSR PC, SAVBMP ;SAVE THE BMP CODE ON THE QUEUE. 
BR 8$ ;GO SEE IF THERE ARE ANY MORE LINE TO TEST. 
6$: MOV R4,R1 ;PASS THE LINE NUMBER TO BE REPORTED. 
015204 MOV #EM3102,R2 ;PASS THE ERROR MESSAGE TO BE REPORTED. 
;"BMP REQUEST BIT BAD ON LINE:' 
ERROR : >>>>> ERROR <<<cc, 
TRAP CSERROR 
; Verify all active lines have been tested. 
8$: INC R4 ; INCREMENT THE LINE NUMBER COUN 
TST RS ;ARE THERE ANY MORE ACTIVE CINES a TEST?. 
BNE 2s ;YES; BRANCH TO TEST THE NEXT LINE. 
344062 60$: ites CTRLCF ;INDICATE THAT WE ARE NOT WITHIN A TEST. 
L10057: 


TRAP CSETST 


' 
ae eet 
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036272 
036272 


036272 


036316 
036320 


036322 
036326 
036326 
036330 
036332 
036334 


036336 


036344 
036350 
036350 
036350 


000033 
012767 
012767 
016702 
012703 
020203 
001411 


012701 
104455 
022125 
015676 
017450 
012767 


005067 


104401 


- DIABMP - 


000033 
177777 
144212 
002526 


016013 


002526 
144002 


144026 
144044 


144160 


SEQ 0185 


-SBTTL HARDWARE TEST - REPBMP - 

FOF ERR REE E ERE R EERE EEE EEE EERE EERE EE EEEEE EERE EERE EREEE EERE ES 
- Report any BMP codes in the queue - 

This is _@ pseudo-test used to report any BMP codes that were found 

in the DUT's FIFO during previous test, and logged in the BMP code 


= 


;* 
;* 
:* queue. 
;* It is unlikely that running this pseudo-test alone will produce any 
* error reports. 

* 


— EERE REAR EERE ERE EERE ERE EEE EER ERE REE ERE EERE EERE REE EEE EERE EEEEEEEEEEEEEEEESD 


BGNTST 177 

TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (93) 

MOV #-1,CTRLCF INDICATE THAT WE ARE IN A TEST. 

MOV BMPC@P ,R2 sGET THE CONTENTS OF THE POINTER. 

MOV #BMPCQB , R3 ;GET THE START ADDRESS OF THE QUEUE. 

CMP R2,R3 ;SEE_IF THE POINTER HAS MOVED FROM THE BASE. 
BEQ 60$ sEXIT NO CODES IN THE QUEUE. 


; There is at least one BMP code in the queue. Report the error. 
;Report error BMP CODE FOUND IN TEST nn, BMP CODE:nnnnnn” 
MOV #E€M9304,R1 ;PASS THE FIRST MESSAGE TO BE REORTED. 
ERRDF 9301,EM9301,ER9301 ; >>>>> ERROR #9301 <<<<<, 
TRAP CS$ERDF 
-WCRD 9301 
-WORD €EM9301 
-WORD ER9301 
MOV #BMPCQB,BMPCQP ;SET POINTER BACK TO THE BEGINING OF THE QUE. 
60$: CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 


ENOTST 
L10060: 


TRAP CSETST 


4 


a 


ELS 
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036352 
036352 
036354 


036354 
036354 
036356 
036360 
036362 


036364 
036364 
036366 
036370 
036372 


036374 
036374 
036376 
036400 
036402 
036404 


036406 
036406 
036410 
036412 
036414 
036416 


036420 
036420 


000022 


000031 
036420 
160000 
177776 


001031 
036436 
000040 
000776 


002032 
036471 
000377 
000000 
177777 


003032 
036517 
000377 
000000 
000006 


- REPBMP - 


: , 5 5 6 0 0 0 9 i i lu kh hu a hl a hh lb a tl ul a uk uh a a hh 9 oh eh hg od gs 


7 ; 


; VOHA . HWQ 


SEQ 0186 


eee ee ee eee — 


| SSLNLASASAAAA SALAS AA SASS SAAS as 


.-SBTTL HARDWARE PARAMETER CODING SECTION 


*¢ 

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
L$HARD: : 
;DEVICE CSR ADDRESS QUESTION: 
GPRMA = HWPTQ1,0,0,160000,177776, YES 
;DEVICE INTERRUPT VECTOR QUESTION: 
GPRMA HWPTQ2,2,0,40,776,YES 
;ACTIVE LINES BIT MAP QUESTION: 
GPRMD HWPTQ3,4,0,MAPLNS,0,177777, YES 
; INTERRUPT BR LEVEL QUESTION: 
GPRMD HWPTQ5S,6,0,377,0,6,YES 
ENDHRD 
L10061: 


-WORD L10061-L$HARD/2 


T$CODE 
HWPTQ1 
T$LOLIM 
T$HILIM 


T$CODE 
HWPTQ2 
T$LOLIM 
T$HILIM 


T$CODE 
HWPTQ3 
MAPLNS 
T$LOLIM 
T$HILIM 


T$CODE 


T$LOLIM 
T$HILIM 
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, HARDWARE PARAMETER CODING SECTION 


7338 


0 
7339 
0 


0 
7340 


0 
7341 
0 


7342 
7343 


036420 
036423 


HWPTQ1: .ASCIZ 


HWPTQ2: .ASCIZ 


HWPTQ3: .ASCIZ 


HWPTQS: .ASCIZ 


. EVEN 





Fis 
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/CSR ADDRESS: / 


ZINTERRUPT VECTOR ADDRESS: / 


/ACTIVE LINE BIT MAP: / 


ZINTERRUPT BR LEVEL: / 


a —- — 


SEQ 0187 


; 
ee | 


ee ee wee 


G15 
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| 


x 


es 


“ 
7365 


7366 
7375 
7376 


7377 
7378 


036544 
036544 
036546 


036546 
036546 
036550 
036552 


036554 
036554 
036556 
036560 
036562 
036564 


036566 
036566 
036570 
036572 


036574 
036574 


036574 
036577 
036602 
036605 
036610 
036613 
036616 
036621 
036624 
036627 


000013 


060130 
036574 
000020 


001052 
036650 
177777 
000000 
177777 


000130 
036737 
000001 


5 5 96 96 96 9 9 ul i lh hb kh i ah hu uh hh hh hh gh hh gh eh eg, 


3 VDHA .SWQ 


SEQ 0188 


' 
| 


; MSN SK LK LALA ALLA L ALLS AAAAKKLLSLLLLSSSets | 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


++ 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


-WORD L10062-L$SOFT/2 


BGNSFT 
L$SOFT:: 
;UNIT NUMBER PRINTOUT QUESTION: 
GPRML SWPTQ1,0,20, YES 
. WORD 
. WORD 
WORD 
;NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE QUESTION: 
GPRMD SWPTQ2,2,0,177777,0,177777, YES 
. WORD 
. WORD 
WORD 
WORD 
WORD 
;ROM VERSION PRINTOUT ON FIRST PASS QUESTION: 
GPRML SWPTQ3,0,1, YES 
WORD 
WORD 
WORD 
.EVEN 
ENDSFT 
.EVEN 
L10062: 
if SWPTQ1: .ASCIZ /REPORT UNIT NUMBER AS EACH UNIT IS TESTED: / 
116 
040 
115 
122 
123 
101 
040 
111 


T$CODE 
SWPTQ1 
20 


T$CODE 
SWPTQ2 
177777 
T$LOLIM 
T$HILIM 


T$CODE 
thts 
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: 
| 


ee oe eee 


SOFTWARE PARAMETER CODING SECTION 


0 
7394 
0 


0 
7395 


7396 


036632 








SEQ 0189 


SWPTQ2: .ASCIZ /NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE: / 


SWPTQ3: .ASCIZ /ROM VERSION PRINTOUT ON THE FIRST PASS: / 


-EVEN 


i ee ee 


SE LL LLL LL LL A ccs s_—se-ssw sme mmm nuns 


ee 





115 


| CVDHACO DHV11-M FUNC TST PART 1 MACRO YOS.02 Monday 01-Apr-85 07:47 Page 131 


| SEQ 0190 
| SOFTWARE PARAMETER CODING SECTION 


ib 44 5 5966 56 9 95 9 9 6 9 9 wh 0 gl 0 ul zt us 0 ui 0 ut 0 ul 0 0 gl gl 0 gl 0h 0 0 0 0h 9 0 ph 0 9 0p 0 9 gg 
7401 ; FVTSKL6.P11 


7403 {MAA AAA A AKA A KAKA KALLA 


7407 037010 $PATCH: : 
7408 037010 -BLKW 24 


9 
7420 037060 LASTAD 


037060 000000 -WORD O 
037062 000000 -WORD 0O 
037064 L$LAST:: 

7421 037064 ENDMOD 


7429 000001 . END 


ee ee 
- - - eR ee 


ee | 
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Symbol table 


| ACTLNS 
' ADR s 


o 
Ln) 
4 
i 
o 
nun nrnnunnnnnnnnnnnnnenunnwnauaa 


jCSRO a 
! 


| 


002236 
000020 


000000 


So o So oo °o 
DOADOOOAOHOHWHAIAIAOOHHAHHIHAIHIHAIAAIAIAIHAIAAHAAAAAAHAAHAAARAARHAAAAARAAAA Aaa 


CTRLCF 


C$RFLA= 


002352 G 
000052 


000021 


C$RPT = 


EM0303 


000025 
000046 
000041 
000037 
000076 
020300 


007073 


J15 
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EM0401 


DOOOADAOIAIAAIHOHIHOAIAHHUAHUAAAAAAHAAAAARHAAHAAAAAARAGR AHAHHAAGD QA an 
m 
= 
rary 
> 
So 
oa 


EM2607 


007252 


014200 


DOOAAOAOAAIAHIAOAHIAHIAIAAIAOIAIAHIAHIHAIAAHAHIAHAAIAANAANHAHHAHAHAHAHAARAAAAAHDAARAAARAAAAAD 


EM2608 


FS$END = 


014274 


000016 
000041 


= 
AHOHOHOHHOHAAHAHAANAAAHAAARHA BHHAVHHAHAAHAAARAARAAAAAARAHAAAAAAG 


SEQ 0191 
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| Symbol table 


F $HARD= 
HW 


I$MSG = 00004 


000040 


G) 


DOHOOAaAGA 


a ee 


ISPTAB= 
I 


L $NAME 
L$PRIO 


000041 


S 
o 
ye 
o 
w 
p= 
MOAOHHAOAOAOAAHUAIAAHIAI AAI AAAHAAAHAAAHAAAAAAAAHAAAAAAHHAAAHAOAO 





L$PROT 


L10053 


024242 
002112 


033546 


MNHOOOADAAAAHAAAHH 
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L10054 


RESETT 


034104 
035130 
036012 
036270 
036350 
036420 
036574 
000377 
004076 
002404 
002402 
002400 
016174 
016252 
016331 
002376 
020340 
020454 
002374 
002230 
024632 
024624 
024314 
000010 G 


MNOHOADAOHOAONAHHAAAH 


oOo 
ye) 
So 
> 
ss 
o 
a 


S 

So 

o 

ue 

So 

o 
ADOHHHAHARAAAAARAAHD AAAAD 


RMATBB 


TXINTF 


002304 


002342 


Tw ) 
AAADAHAAAIAAARARAANAAAAARAARAAD 


DOHAAHOAVNAAAAAAARARAAHAAARAMD 


SEQ 0192 





— . a -_— -- 


L1i5 
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SEQ 0193 
| Symbol table 

TXINTR 024160 G T$SAVL= 177777 T$$PRO= 010020 T2 025564 G UAM = 000200 G 
TXVECA 002234 G T$SEGL= 177777 T$$RPT= 010017 T20 032604 G UNBTTB 002264 G 
T$ARGC= 000003 T$SUBN= 000000 T$$SOF= 010062 T21 033014 G UNITN 002240 G 
T$CODE= 30 T$TAGL= 177777 T$$SW = 610001 T22 033250 G UNSDIV 023052 G 
T$ERRN= 022125 $TAGN= 010063 alt 010060 T23 033550 G WAIBIC 023206 G 
TSEXCP= 100 TEMP= 000000 T1 025274 G 124 034106 G WAIBIS 023262 G 
T$FLAG= 000050 T$TEST= 000033 T10 027530 G T25 035132 G WOPDR 023336 G 
T$GMAN= T$TSTM= 177777 Til 27730 G c 036014 G WORD1 002350 G 
T$HILI= 177777 T$TSTS= 00 T12 030142 G Te 036272 G WTWLNC 023532 G 
T$LAST= 000001 T$$AU = 010025 T13 030410 G 15 026000 G WTWLNS 023562 G 
T$LOLI= 100 T$$AUT= 010022 T14 030752 G T4 026230 G WTWLPR 023606 G 
T$LSYM= 010000 T$$CLE= 010023 T15 031336 G T5 026412 G X$ALWA= 000000 
T$LTNO= 00003 T$$DU = 010024 T16 031546 G T6 026570 G X$FALS= 000040 
T$NEST= 177777 T$$HAR= 010061 T17 031762 G T7 026772 G X$OFFS= 0004 
T$NSO = 000000 T$$HW = 010000 T18 032226 G T8 027164 G X$TRUE= 000020 
T$NS1 = 000005 T$$INI= 010021 T19 032476 G 19 027356 G $PATCH 037010 G 
TS$PTNU= 000000 T$$MSG= 010016 

. ABS. 037064 000 8 (RW,1I,GBL,ABS,OVR) 

000000 001 (RW,I,LCL,REL,CON) 


Errors detected: 0 


**% Assembler statistics 


Work file reads: 275 

Work file writes: 284 

Size of work file: 35712 Words ( < Pages) 
Size of core pool: 19714 Words ( 75 Pages) 
wa system: RSX-11M/PLUS tunder AX/VMS ) 


apsed time: 00:0 
EVD C.BIN,CVDHAC. este. : SP*SVCAO/ML, CVDHAC .P1ii 


ee ee oe eee 4 


